Implementing  Prolog  via  Microprogramming  a  General  Purpose  Host 

Computer 

Jeff  Gee 

Master’s  Report  Plan  11 
Professor  Yale  Patt 
Computer  Science  Division 
University  of  California 
Berkeley,  CA  94720 


ABSTRACT 

This  report  documents  the  implementation  of  a  high  performance  Prolog  system 
achieved  by  remicroprogramming  a  host  general  purpose  computer.  New  microcode  was 
added  to  a  VAX  8600  computer  to  implement  the  Berkeley  Programmed  Logic  Machine 
(PLM),  a  Prolog-specific  architecture  closely  related  to  the  Warren  Abstract  Machine. 
The  mapping  of  the  abstract  resources  of  the  PLM  to  the  8600  is  described.  Performance 
comparisons  between  this  system  and  three  other  Prolog  implementations  are  included. 
On  average,  this  system  performs  three  times  better  than  compiled  and  twenty  times 
better  than  interpreted  systems  available  on  the  same  hardware.  In  addition,  this  execu¬ 
tion  model  provides  75%  of  the  performance  of  the  special  purpose  PLM  coprocessor, 
after  results  are  normalized  to  the  cycle  time  of  each  machine. 
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Chapter  1 

Project  Overview 


1.  Introduction 

The  purpose  of  this  project  is  to  develop  a  high  performance  implementation  of  Prolog  on  a  VAX^ 
8600  general  purpose  computer  by  emulating  in  microcode  an  architecture  designed  to  support  Prolog.  The 
architecture  is  the  Berkeley  Programmed  Logic  Machine  (PLM),  developed  by  Tep  Dobry  and  Barry  Fagin 
[2,3].  The  PLM  is  heavily  influenced  by  the  Warren  Abstract  Machine  (WAM),  conceived  by  David  War¬ 
ren  [7].  New  microcode  was  written  for  the  VAX  8600  which  directly  interprets  the  instructions  defined  by 
the  PLM  abstract  architecture.  Performance  results  indicate  that  this  system  provides  the  fastest  Prolog 
implementation  available  on  the  VAX  8600. 

2.  Background 

The  focus  of  the  Aquarius  project  at  Berkeley  is  to  achieve  large  improvements  in  the  execution 
speed  of  applications  requiring  intensive  numerical  calculation  and  substantial  symbolic  manipulation.  The 
primary  language  of  the  system  is  the  logic  programming  language  Prolog.  Prolog  has  gained  wide  accep¬ 
tance  as  the  language  of  choice  for  knowledge  processing  and  expert  systems. 

Various  execution  models  for  the  high  performance  execution  of  Prolog  have  been  investigated. 
Each  of  these  models  compile  a  Prolog  program  into  an  architecture  related  to  the  Warren  Abstract 
Machine  as  the  first  step.  The  WAM,  analogous  to  p-code  in  Pascal,  is  the  conventional  intermediate  form 
of  Prolog.  The  WAM  architecture  consists  of  machine  registers,  four  memory  spaces,  data  structures,  and 
forty  instructions  which  carry  out  the  semantics  of  the  Prolog  language. 

After  the  Prolog  program  is  compiled  to  WAM  level  instructions,  the  different  execution  models 
proceed  in  separate  ways.  Each  WAM  instruction  can  be  interpreted  by  software  vmtten  in  the  machine 
instructions  of  a  general  purpose  computer,  further  compiled  down  to  the  machine  architecture  of  a  general 
purpose  computer,  or  directly  executed  in  the  microcode  of  a  special  purpose  Prolog  coprocessor  designed 
explicitly  for  the  WAM. 

'  VAX  is  a  trademark  of  the  Digital  Equipment  Corporation. 
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To  date,  none  of  the  above  execution  models  provides  efficient  symbolic  and  numeric  calculation.  In 
a  general  purpose  machine,  a  semantic  gap  exists  between  the  symbolic  operations  of  Prolog  and  the 
machine  instructions  available  in  the  computer.  A  special  purpose  coprocessor  normally  does  not  contain 
the  special  hardware  required  for  fast  numeric  calculation,  although  the  ability  to  provide  coprocessors  for 
Prolog  and  numerics,  which  are  in  fact  closely  coupled,  remains  an  important  part  of  the  Aquarius  project. 

The  approach  taken  in  the  work  reported  here  is  to  provide  high  performance  symbolic  and  numeric 
execution  in  the  same  general  purpose  processor.  A  Prolog  program  is  first  compiled  into  the  PLM  archi¬ 
tecture,  a  modified  version  of  the  Warren  Abstract  Machine.  The  semantic  gap  due  to  the  host  machine 
code  level  is  eliminated  by  introducing  microcode  which  interprets  directly  the  PLM  instruction  set.  Basic 
Prolog  operations  are  provided  at  the  microcode  level,  while  fast  numeric  computations  are  provided  by  the 
native  instruction  set  and  hardware  of  the  host.  The  VAX  8600  general  purpose  processor  was  chosen  as 
the  implementation  vehicle.  The  resulting  performance  exceeds  all  other  known  VAX  implementations  and 
approaches  the  speed  of  existing  special  purpose  coprocessors. 

3.  Project  Goals 

The  major  goals  of  this  project  are  presented  below.  The  remaining  sections  of  this  report  document 
how  these  goals  were  met. 

(1)  The  PLM  instruction  set  is  to  be  translated  into  a  form  directly  executable  by  the  VAX  8600. 

(2)  The  new  instructions  added  to  the  VAX  8600  must  function  in  a  multiprogramming  environment. 
That  is,  a  Prolog  process  must  be  interruptable  and  restartable. 

(3)  The  native  VAX  architecture  must  be  preserved.  Any  software  written  in  the  VAX  instruction  set 
must  execute  correctly  in  this  system. 

(4)  The  system  should  be  the  fastest  Prolog  implementation  available  on  the  VAX  architecture. 

4.  Outline  of  the  Report 

This  report  is  divided  into  seven  chapters.  Chapter  2  describes  four  different  execution  models  for 
Prolog.  Chapter  3  describes  the  PLM  architecture.  Chapter  4  describes  the  execution  environment  in  the 
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VAX  8600.  Chapter  5  discusses  the  implementation  of  the  PLM  architecture  in  the  VAX  8600.  Chapter  6 
contains  performance  results  and  compares  these  measurements  with  what  has  been  obtained  with  the  other 
models  discussed  in  Chapter  2.  Finally,  Chapter  7  offers  some  concluding  remarks.  In  addition,  several 
appendices  are  included  which  contain  the  new  microcode  introduced  to  the  system,  instruction  formats  for 
each  PLM  construct  and  other  new  instructions  added  to  the  VAX  8600,  and  source  code  for  the  utilities 
used  in  this  project. 


Chapter  2 

Prolog  Execution  Models 


1.  Introduction 

This  chapter  describes  four  uniprocessor  Prolog  systems,  each  of  which  represents  a  different  execu¬ 
tion  model  for  Prolog.  Three  of  these  systems  execute  on  the  VAX  8600  general  purpose  computer;  the 
fourth  implements  the  PLM  in  the  hardware  of  a  special  purpose  Prolog  coprocessor.  The  execution 
models  for  these  systems  are  shown  in  figure  2.1. 

2.  The  C-Prolog  Interpreter 

In  the  C-Prolog  interpreter,  a  Prolog  source  program  is  first  translated  into  an  intermediate  form,  a 
structure-based  representation  of  the  original  Prolog  code.  Two  levels  of  interpretation  are  then  employed. 
The  intermediate  form  is  interpreted  by  a  program  written  in  VAX  machine  language  instructions,  and  each 
VAX  instruction  is  in  turn  interpreted  by  the  microinstructions  and  datapath  of  the  VAX  8600. 

There  are  several  performance  disadvantages  to  this  approach.  First  there  is  the  overhead  required  to 
evaluate  the  internal  structure-based  form  and  branch  to  the  appropriate  machine  language  routine.  A  more 
important  problem  is  the  semantic  gap  between  the  general  purpose  machine  language  instructions  which 
form  the  interpreter  and  the  basic  symbolic  operations  of  Prolog.  Any  high  performance  Prolog  implemen¬ 
tation  must  rapidly  determine  and  branch  on  the  state  of  a  few  select  bits  in  the  data  word.  This  ability  is 
not  normally  provided  in  the  instruction  set  of  a  general  purpose  machine.  Due  to  the  above  limitations, 
the  performance  of  this  model  is  expected  to  be  low. 

3.  BIM  Prolog 

BIM  Prolog  compiles  a  Prolog  program  into  machine  language  instructions  of  the  VAX  architecture. 
The  Prolog  program  is  first  compiled  into  the  instruction  set  of  an  abstract  architecture  closely  related  to 
the  Warren  Abstract  Machine.  Each  abstract  instruction  is  then  macro-expanded  into  a  sequence  of  VAX 
instructions.  There  is  a  single  level  of  interpretation  in  BIM  Prolog.  Each  VAX  machine  instruction  in  the 
new  problem  specification  is  interpreted  by  the  hardware  and  microcode  of  the  VAX  8600. 
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In  contrast  to  interpreted  Prolog,  no  decoding  of  an  internal  representation  is  necessary.  The  transla¬ 
tion  process  continues  through  to  the  host  ISA  level.  In  the  C-Prolog  interpreter  the  translation  from  the 
internal  form  to  machine  code  is  done  dynamically  at  runtime,  slowing  the  execution  process  considerably. 
A  study  suggests  the  performance  of  a  compiled  system  may  be  an  order  of  magnitude  greater  than  an 
interpreted  implementation  [8].  However,  performance  is  still  degraded  by  the  semantic  gap  between  the 
host  machine  code  level  and  the  primitive  operations  required  of  Prolog. 

4.  The  PLM  Special  Purpose  Coprocessor 

The  Berkeley  PLM  is  a  special  purpose  coprocessor  which  implements  a  variant  of  the  WAM  in 
hardware.  This  special  purpose  coprocessor  directly  executes  the  PLM  version  of  a  Prolog  program.  No 
further  translation  or  compilation  is  required.  The  datapath  of  the  special  purpose  coprocessor  is  optimized 
for  PLM  instructions  and  the  basic  symbolic  operations  of  Prolog.  In  particular,  support  is  provided  for 
Hata  tag  test  and  manipulation.  Processing  of  PLM  instructions  is  expected  to  be  optimal,  due  to  the 
tailored  hardware. 

Certain  Prolog  built-in  predicates  require  operations  which  are  not  supported  by  the  PLM  instruction 
set.  For  example,  the  is  predicate  requires  complicated  numeric  functions  such  as  multiplication,  division, 
and  modulo.  The  current  version  of  the  PLM  does  not  have  the  hardware  support  necessary  to  perform 
these  operations  efficiently.  Instead,  the  PLM  would  normally  request  a  host  general  purpose  machine  (via 
the  escape  mechanism  [2])  to  perform  these  computations.  The  host  processor  retrieves  the  operands,  per¬ 
forms  the  computation,  and  transfers  the  result  back  to  the  Prolog  coprocessor.  Performance  is  reduced 
due  to  the  overhead  required  to  transfer  data  between  the  host  and  coprocessor. 

However,  one  should  point  out  that  the  performance  loss  due  to  these  external  computations  is  a 
result  of  earlier  work  and  not  an  inherent  property  of  the  special  purpose  coprocessor.  The  PLM  and  other 
existing  Prolog  coprocessors  are  only  the  first  iterations  of  designs  which  are  still  evolving.  The  state  of  the 
art  for  specialized  coprocessors  is  still  young,  and  lessons  have  been  learned  from  these  initial  implementa¬ 
tions.  Future  designs  will  reduce  or  eliminate  the  overhead  incurred  with  the  escape  mechanism,  probably 
by  adding  hardware  support  to  execute  most  built-in  predicates  internally. 
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5.  Direct  Execution  of  the  PLM  in  VAX  8600  Microcode 

Current  implementations  of  the  first  three  computation  models  possess  shortcomings  for  either  sym¬ 
bolic  or  numeric  processing.  This  section  describes  an  execution  model  for  Prolog  which  supports  both 
types  of  computation  efficiently. 

In  this  system,  the  instruction  set  of  the  VAX  8600  general  purpose  microprogrammable  computer  is 
extended  via  the  addition  of  new  microcode  which  executes  the  PLM  instruction  set.  The  VAX  8600  exe¬ 
cutes  the  PLM  instructions  as  if  they  were  part  of  its  native  architecture. 

Symbolic  operations  of  the  PLM  are  implemented  at  the  low  level  of  the  horizontal  microcode  and 
raw  datapath  of  the  host.  By  doing  so,  the  semantic  gap  between  these  operations  and  the  higher  ISA  level 
of  the  host  is  eliminated.  Numeric  operations  are  performed  with  general  purpose  machine  instructions 
present  in-line  with  the  new  PLM  instructions,  removing  the  time  consuming  escape  mechanism  associated 
with  current  special  purpose  coprocessors.  Execution  speed  on  the  PLM  constructs  is  expected  to  fall 
between  the  coprocessor  and  compiled  models  for  Prolog.  Performance  on  applications  with  significant 
amounts  of  numeric  computation  may  even  surpass  existing  special  purpose  coprocessors  due  to  the  in-line 


execution  of  numeric  built-ins. 
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Figure  2.1:  Prolog  Execution  Models 


Chapter  3 

Details  of  the  PLM,  a  Modified  WAM 


1.  Introduction 

This  chapter  describes  the  PLM  architecture  implemented  on  the  VAX  8600.  The  architecture  is 
heavily  based  on  the  original  Warren  Abstract  Machine  [7]  except  for  slight  changes  to  the  instruction  set 
and  processor  registers.  A  few  new  instructions  were  added  to  the  WAM  to  support  the  cdr-coding  of  lists 
(described  in  Chapter  5,  section  1),  the  Prolog  cut  (!)  operator,  and  Prolog  built-in  predicates.  Several 
registers  were  added  to  the  architecture  to  improve  performance.  Additional  detail  on  the  PLM  architec¬ 
ture  is  provided  in  [231  • 

2.  Data  Types 

Prolog  manipulates  four  types  of  data:  constants,  variables,  lists,  and  structures.  Data  in  the  PLM 
consists  of  a  word  containing  a  value  and  a  tag.  The  tag  determines  the  data  type  for  the  object;  the  value 
generally  represents  an  address.  Constants  can  be  integers,  atoms,  and  the  special  constant  NIL.  Variables 
point  to  the  data  to  which  they  are  bound.  Unbound  variables  point  to  themselves.  Lists  reference  the  first 
element  of  the  list.  Structures  are  lists  with  principal  functors.  The  first  element  of  the  list  is  the  principal 
functor  of  the  structure. 

3.  Registers 

The  architecture  contains  18  special  purpose  registers: 

A1-A8:  Argument  registers,  containing  the  arguments  of  a  Prolog  goal. 

P:  Program  counter,  addressing  the  next  instruction  to  execute. 

CP:  Continuation  pointer,  where  execution  continues  should  the  current  goal  succeed. 

E:  the  Environment  pointer,  references  the  current  environment  placed  on  the  stack. 

B:  the  Backtrack  pointer,  contains  the  address  of  the  current  choice  point  placed  on  the 

stack. 
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TR:  the  Trail  pointer,  pointing  to  the  top  of  the  trail. 

H:  the  Heap  pointer,  pointing  to  the  top  of  the  heap. 

HB:  the  Heap  Backtrack  pointer,  the  value  of  the  heap  pointer  when  the  current  choice  point 

was  placed  on  the  stack. 

S:  the  Structure  pointer,  pointing  to  the  current  element  of  a  list  or  structure  being  accessed. 

PDL:  the  Push  Down  List  pointer,  pointing  to  the  last  element  placed  on  the  push  down  list. 

N:  the  number  of  permanent  variables  in  the  current  environment. 

4.  Data  Memory  Allocation 

The  data  memory  is  partitioned  into  four  spaces:  the  Stack,  Heap,  Trail,  and  Push  Down  List  (PDL). 

The  stack  is  used  to  store  control  information  necessary  for  the  correct  execution  of  a  Prolog  pro¬ 
gram.  Choice  points  and  environments  are  placed  on  the  stack  by  special  instructions  which  save  data 
needed  for  backtracking. 

An  environment  contains  the  saved  state  of  a  Prolog  clause.  It  contains  register  values  and  "per¬ 
manent  variables"  which  must  be  retained  between  goals  in  a  multi-goal  clause.  Permanent  variables  are 
variables  whose  use  is  not  restricted  to  the  first  goal  in  a  clause.  Thus,  if  kept  in  argument  registers,  these 
variables  may  be  overwritten  during  execution  of  a  subsequent  clause  goal.  These  variables  are  stored  on 
the  stack  and  retrieved  when  the  appropriate  goal  is  invoked.  In  addition,  an  environment  contains  the  CP, 
E,  N,  and  B  registers  which  are  necessary  to  continue  computation  when  the  last  goal  in  a  clause  succeeds. 

A  choice  point  contains  the  information  necessary  to  restore  the  process  state  when  a  goal  fails. 
Choice  points  are  placed  on  the  stack  whenever  a  procedure  contains  more  than  one  clause  which  can  unify 
with  the  current  goal.  Choice  points  contain  the  following  register  values: 

A 1 . . A8 :  the  contents  of  the  argument  registers 

E:  the  location  of  the  last  environment 

CP:  address  to  continue  if  the  current  goal  succeeds 

B:  location  of  the  previous  choice  point 
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TR:  value  of  the  trail  pointer 

H;  top  of  the  heap 

N:  number  of  permanent  variables  in  the  current  environment 

L:  address  to  continue  should  the  current  goal  fail 

The  heap  is  used  to  store  lists  and  structures.  These  data  items  are  difficult  to  store  on  the  stack. 
Instead,  pointers  to  the  lists  and  structures  are  stored  on  the  stack.  In  addition,  the  heap  is  used  to  globalize 
variables  on  the  stack  which  may  become  dangling  references  when  an  environment  is  deallocated  [3]. 

The  trail  is  used  to  store  addresses  of  bindings  which  must  be  undone  upon  goal  failure.  When  the 
current  goal  fails,  the  trail  value  saved  in  the  current  choice  point  is  retrieved.  All  addresses  in  trail  loca¬ 
tions  between  this  saved  value  and  the  current  trail  pointer  are  reset  to  unbound  variables. 

Finally,  the  PDL  is  a  small  stack  used  to  unify  nested  structures  and  lists.  Dangling  references  occur 
when  unifying  nested  lists.  During  the  depth  first  traversal  of  a  nested  list,  pointers  to  the  remainder  of  the 
higher  levels  of  the  list  are  lost  This  occurs  if  the  address  of  the  cdr  is  not  saved  when  a  nested  list  is 
encountered.  The  Push  Down  List  contains  pointers  to  the  remainder  of  a  nested  list  Unification  resumes  at 
the  topmost  PDL  location  during  a  depth  first  traversal.  When  the  PDL  is  empty,  the  list  has  been 
traversed. 

5,  Instruction  Set 

The  PLM  instruction  set  is  described  in  detail  in  [3]. 

In  addition,  the  Berkeley  PLM  supports  the  built-in  predicates  of  Prolog  through  the  escape  mechan¬ 
ism  [2].  These  predicates  are  not  executed  by  normal  WAM  constructs,  but  are  represented  as  a  particular 
escape  instruction.  The  escape  sequences  supported  by  our  implementation  include: 

Input/Output  •  wnte 

•  get  • 

•  put  • 


read 


see 


11 


•  seen 

•  tell 

•  told 

Term  Comparison 

•  > 

•  < 


•  =< 

•  >= 

Arithmetic 

•  + 


•  / 

•  mod 

W 

Metalogical 

•  var 

.  •  nonvar 

V 

•  atom 

•  atomic 

^  •  number 


•  functor 

•  arg 

•  =.. 

•  length 

•  name 

System 

•  system 


•  integer 


Chapter  4 

Operating  Environment 


1.  8600  System  Architecture 

The  PLM  instructions  are  implemented  on  a  VAX  8600  computer  operating  under  4.3  BSD  UNIX.^ 
The  VAX  8600  is  a  32  bit  computer  designed  with  ECL  macrocell  arrays.  Figure  4.1  shows  a  block 
diagram  of  the  8600.  The  cycle  time  of  the  8600  is  80  nanoseconds. 

The  8600  is  partitioned  into  four  major  units  that  work  concurrently,  each  performing  a  different  part 
of  the  overall  execution  of  an  instruction.  The  IBOX  prefetches  the  instruction  stream,  processes  operand 
specifiers,  and  passes  operands  and  instruction-dependent  control  information  to  the  EBOX,  the  main  exe¬ 
cution  unit  of  the  machine.  The  EBOX  executes  the  VAX  instruction  set  and  supervises  the  entire  system 
under  exceptional  conditions.  The  EBOX  also  contains  the  main  data  path  and  most  of  the  microcode  in  the 
8600.  The  MBOX  performs  memory  accesses  requested  by  the  IBOX  and  EBOX.  It  contains  the  transla¬ 
tion  buffer,  cache,  and  I/O  sub-system  interface.  Finally,  the  FBOX  is  a  floating  point  accelerator,  contain¬ 
ing  special  hardware  to  achieve  a  high  performance  computing  capability.  The  FBOX  is  optional;  the 
EBOX  will  execute  all  VAX  floating  point  instructions  if  the  FBOX  is  not  present 

Sixteen  general  purpose  registers  are  available  to  the  programmer.  Four  copies  of  these  registers  are 
maintained  to  guarantee  fast  and  flexible  access  to  the  data.  Any  modification  updates,  by  means  of  special 
hardware,  all  copies  of  the  registers. 

The  main  interface  signals  between  the  four  major  units  are  shown  in  figure  4.1.  All  memory  and 
I/O  accesses  occur  via  the  Memory  Data  Bus  (MD-Bus)  which  connects  the  MBOX  to  the  IBOX.  Memory 
operands  are  passed  from  the  IBOX  to  the  EBOX  across  the  Operand  Bus  (OP-Bus).  Operands  in  the  gen¬ 
eral  purpose  registers  are  represented  as  GPR  numbers  passed  across  the  IBGPR-Bus.  Thus  two  operands 
can  be  passed  from  the  IBOX  to  the  EBOX  in  one  cycle.  Results  from  the  EBOX  or  FBOX  destined  for 
memory  are  returned  to  the  IBOX  via  the  Write  Bus  (W-Bus).  Any  modifications  to  the  general  purpose 
registers  are  also  broadcast  across  the  Write  Bus  to  update  all  other  copies.  The  IBOX  passes  memory 

^  UNIX  is  a  trademark  of  Bell  Laboratories. 
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results  to  the  MBOX  via  the  Memory  Data  Bus.  The  EBOX  and  IBOX  supply  virtual  32  bit  addresses  to 
the  MBOX  across  the  EVA  and  IVA  busses,  respectively.  The  FA-Bus  is  used  by  the  IBOX  to  send  micro¬ 
code  entry  points  to  the  EBOX.  The  CC-Bus  provides  the  IBOX  with  condition  code  information  com¬ 
puted  in  the  EBOX  which  the  IBOX  requires  for  the  branch  instructions. 

2.  8600  Microarchitecture 

All  of  the  boxes  are  microprogrammed  independently.  Most  of  the  microcode,  including  all  instruc¬ 
tion  specific  microcode,  is  contained  in  the  EBOX.  The  EBOX  was  remicroprogrammed  to  execute  the 
PLM  instruction  set  and  the  IBOX  decode  RAM  (DRAM)  entries  were  augmented  to  recognize  the  previ¬ 
ously  reserved  opcodes  representing  each  PLM  construct.  The  additional  microcode  performs  the  opera¬ 
tions  required  for  each  of  the  PLM  construcu  and  for  several  of  the  Prolog  built-in  functions  which  are 
normally  represented  as  escape  sequences.  The  IBOX  and  MBOX  perform  the  duties  of  instruction  pre¬ 
fetching,  operand  prefetching,  and  memory  accesses.  No  IBOX  microcode  modifications  were  necessary 
other  than  the  DRAM  entries  which  are  needed  by  the  EBOX,  since  normal  VAX  addressing  modes  and 
the  extended  VAX  opcodes  (FD  xy)  are  used  to  represent  a  PLM  program. 

The  EBOX  contains  8K  x  92  bits  of  writable  control  store.  The  horizontal  microinstruction  format 
facilitates  the  implementation  of  a  simple,  but  flexible  data  path.  This  flexibility  accounts  for  much  of  the 
power  of  this  machine. 

The  EBOX  data  path,  shown  in  figure  4.2,  consists  of  a  dual-ported  256  x  32  bit  scratchpad  register 
file,  an  ALU,  and  a  barrel  shift  network.  The  scratchpad  contains  internal  processor  registers,  temporary 
registers,  constants,  and  architecturally  defined  general  purpose  registers. 

The  8600  microcycle  is  80  nanoseconds.  In  one  microcycle,  the  machine  can  perform  an  ALU  or 
shifter  operation  on  two  scratchpad  elements  and  store  the  result  back  in  the  scratchpad.  The  barret  shifter 
works  in  parallel  with  the  ALU  and  can  select  any  32  consecutive  bits  from  a  64  bit  value.  Two  scratchpad 
registers  or  one  register  concatenated  with  a  memory  operand  supply  this  64  bit  value. 

The  MBOX  contains  a  16  Kbyte  data  cache  to  speed  up  memory  accesses.  A  memory  read  takes  two 
microcycles  if  the  data  is  found  in  the  cache,  and  seven  cycles  in  the  event  of  a  cache  miss. 
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3.  Microprogramming  Environment 

The  EBOX  microcode  source  is  divided  into  20  separate  files  totaling  approximately  75,000  lines. 
After  assembly,  roughly  500  lines  of  microcode  are  available  for  use.  An  additional  500  lines  were  gained 
by  removing  the  microcode  for  PDP-11  compatibility  mode.  The  microcode  which  implements  the  PLM  is 
stored  in  a  separate  source  file  and  assembled  separately  from  the  native  microcode.  The  new  microcode  in 
this  file  will  overlay  the  native  code  in  unused  locations. 

The  source  files  are  stored  on  a  MicroVAX  II  workstation  running  the  VAXA^MS^  operating  system. 
Assembly  takes  place  on  the  MicroVAX  using  the  MICR02  assembler.  The  resulting  microcode  is  con¬ 
verted  into  a  binary  format  and  transferred  to  the  console  disk  pack  of  the  VAX  8600.  The  microcode  is 
then  loaded  into  the  writable  control  store  of  the  8600  before  booting  the  UNIX  operating  system. 

4.  Compilation  and  Assembly  of  Prolog  Programs 

Three  levels  of  translation  are  required  to  transform  Prolog  programs  into  an  executable  VAX  8600 
object  file.  First,  the  Prolog  program  is  compiled  into  its  equivalent  PLM  form.  An  intermediate  assembler 
then  takes  the  output  of  the  compiler  and  generates  a  VAX  assembly  language  file.  This  file  is  then  assem¬ 
bled  into  a  VAX  executable  file,  containing  both  VAX  opcodes  defined  by  the  architecture  and  new  VAX 
opcodes  for  the  PLM  constructs.  Each  of  the  PLM  constructs  is  defined  as  a  two  byte  VAX  opcode  of  the 
form  FD  xy. 

The  Prolog  compiler  was  developed  at  Berkeley  as  a  Master’s  Thesis  by  Peter  Van  Roy  [6],  The 
compiler  is  written  in  Prolog,  and  is  invoked  from  a  C-Prolog  interpreter  running  under  4.3  BSD  UNIX. 
Input  to  the  compiler  is  a  set  of  Prolog  clauses  and  a  query.  The  output  is  the  equivalent  translation  into  the 
PLM  instruction  set. 

The  intermediate  assembler  transforms  the  code  generated  by  the  compiler  into  a  VAX  assembly 
language  file.  It  is  written  in  C,  and  performs  a  one  to  one  translation  of  PLM  code  to  new  VAX  opcodes. 
Each  PLM  instruction  corresponds  to  a  single  VAX  instruction.  An  extended  VAX  opcode  is  defined  to 
represent  each  of  the  PLM  constructs.  The  operands  of  the  new  insroictions  are  represented  as  normal 


^  VAXAMS  is  a  trademaik  of  the  Digital  Equipment  Corporation. 


VAX  operand  specifiers.  The  intermediate  assembler  is  responsible  for  parsing  the  PLM  file  and  generating 
the  appropriate  new  VAX  opcodes.  The  assembler  also  creates  symbol  and  string  tables  which  represent 
Prolog  atoms,  lists,  and  structures. 

In  addition,  the  implementation  supports  a  number  of  built-in  Prolog  functions  which  are  represented 
as  escape  sequences  in  the  Berkeley  PLM.  These  include  input/output  predicates  such  as  write,  read,  and 
nl,  arithmetic  operations  in  the  is  predicate,  metalogical  predicates  such  as  integer,  functor,  and  arg,  and 
term  comparison  operations  such  as  ==,  =<,  >=,  <,  and  >.  The  complete  list  of  built-ins  supported  in  this 
system  is  listed  in  the  previous  chapter.  These  built-in  predicates  are  either  implemented  as  new  instruc¬ 
tions,  or  in-line  sequences  of  VAX  code,  or  calls  to  subroutines  written  in  C. 

The  VAX/UNIX  assembler  as  generates  executable  VAX  object  code  from  the  output  of  the  PLM 
assembler. 

The  entire  compilation  and  assembly  process  is  shown  in  figure  4.3. 


W-Bus 


Figure  4.1:  VAX  8600  Block  Diagram 
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Figure  4.2:  EBOX  Datapath 
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VAX  executable  image 


Figure  4.3:  Prolog  Compilation  Process 


Chapter  5 

Implementation  of  the  PLM  Architecture  on  the  VAX  8600 


1.  Data  Representation 

The  method  for  implementing  data  tags  is  shown  in  figure  5.1.  The  two  high  order  bits  of  a  32  bit 
data  word  specify  the  type  of  the  data.  The  third  bit  supports  the  cdr-coding  of  lists,  to  be  explained  below. 
Another  bit  is  allocated  for  garbage  collection,  which  is  not  implemented  in  the  current  system. 

Variables  contain  a  4  bit  tag  and  a  28  bit  address.  Virtual  addresses  are  32  bits  in  the  VAX  architec¬ 
ture.  The  remaining  high  address  bits  are  determined  by  the  high  bit  of  the  28  bit  address.  If  0,  the  data 
exists  in  heap  space  (hex  0  followed  by  the  address).  If  1,  the  data  is  in  stack  space  (hex  7  followed  by  the 
address,  see  figure  5.3).  This  32  bit  address  points  to  the  data  to  which  a  variable  is  bound.  For  example,  a 
variable  bound  to  a  constant  contains  the  address  of  the  constant  in  memory.  Unbound  variables  address 
themselves,  thus  a  bound  variable  can  be  unbound  by  modifying  its  value  field  to  address  itself. 

Constants  require  two  secondary  tag  bits  which  determine  the  type  of  constant.  Values  of  constants 
are  placed  in  the  remaining  26  bits  of  the  data  word.  Integer  constants  are  stored  in  these  bits.  Constant 
atoms  are  represented  by  a  unique  identifier  number  which  is  its  index  in  a  symbol  table.  The  identifier 
number  provides  sufficient  information  for  Prolog  unification  operations,  while  the  symbol  table  entry  is 
required  for  the  write  predicate.  The  special  constant  NIL  is  represented  by  all  1  ’s  in  the  remaining  bits. 

Lists  are  represented  as  a  data  word  containing  a  pointer  to  the  first  element  of  the  list.  Lists  are  edr- 
coded.  The  car  of  the  list  is  the  first  element;  the  edr  points  to  the  remainder  of  the  list  To  improve  memory 
efficiency,  the  edr  cell  is  not  included  if  the  rest  of  the  list  directly  follows  the  car  in  memory.  Otherwise, 
the  edr  cell  directly  follows  the  car.  A  edr  bit  in  the  data  word  detects  this  condition.  If  the  cell  following 
the  car  has  its  edr  bit  set,  it  points  to  the  rest  of  the  list.  Otherwise,  it  is  the  first  element  of  the  remainder  of 
the  list  A  NIL  constant  ends  a  list 

Structures  are  identical  to  lists  except  the  first  element  of  a  structure  is  the  principle  functor  of  the 


structure. 
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2.  Register  Allocation 

The  architectural  registers  of  the  PLM  are  mapped  onto  the  sixteen  VAX  general  purpose  registers 
(GPR).  Each  PLM  register  is  assigned  to  a  VAX  general  purpose  register,  except  for  the  trail  and  push 
down  list  registers.  These  registers  share  a  VAX  general  purpose  register,  as  16  bits  of  address  space  were 
deemed  sufficient  for  the  trail  and  push  down  list  We  should  note  that  only  six  argument  registers  are  pro¬ 
vided,  compared  to  eight  in  the  PLM  coprocessor,  due  to  a  shortage  of  VAX  processor  registers. 

Several  PLM  instructions  perform  different  functions  depending  on  the  state  of  two  mode  bits,  the 
cut  bit  and  the  read/write  bit.  The  cut  bit  determines  the  proper  number  of  choice  points  to  discard  when 
the  Prolog  cut  (!)  operator  is  executed.  Normally,  all  choice  points  above  the  B  register  value  saved  in  the 
current  environment  are  discarded.  However,  if  the  current  procedure  has  placed  a  choice  point  on  the 
stack,  then  one  more  choice  point  must  be  discarded.  The  cut  bit  is  set  when  a  choice  point  is  placed  on  the 
stack  and  cleared  by  a  call,  execute,  or  proceed  instruction.  The  read/write  bit  determines  the  mode  for  the 
unify  instructions.  In  write  mode,  a  list  or  structure  is  unified  with  an  unbound  variable,  and  a  copy  of  the 
data  is  written  on  the  heap.  In  read  mode,  two  lists  or  structures  are  unified,  and  their  elements  on  the  heap 
are  compared.  The  mode  bit  is  set  to  read  when  the  argument  dereferences  to  a  list  or  structure,  and  is  set  to 
write  if  the  argument  dereferences  to  a  variable. 

The  read/write  and  cut  bits  are  stored  directly  in  the  VAX  Processor  Status  Longword  (PSL).  The 
PSL  negative  flag  implements  the  read/write  bit,  and  the  the  PSL  overflow  flag  implements  the  cut  bit. 
Condition  codes  in  the  PSL  can  be  used  freely  as  the  PLM  instructions  do  not  depend  on  any  condition 
codes  defined  by  the  native  VAX  architecture. 

The  register  allocation  scheme  is  shown  in  figure  5.2. 

3.  Memory  Allocation 

The  VAX  8600  has  31  bits  of  process  address  space.  Our  Prolog  implementation  requires  only  28 
bits,  due  to  the  four  bit  tag  in  the  data  word.  Half  of  this  28  bit  address  space  is  allocated  to  the  code  and 
heap  space;  the  other  half  is  used  for  the  stack  and  trail  space.  The  virtual  address  space  is  allocated 
according  to  figure  5.3. 
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The  code  space  corresponds  to  the  size  of  the  individual  Prolog  program.  The  heap  space  begins 
where  the  code  space  ends  and  grows  toward  high  memory.  The  heap  boundary  occurs  when  27  bits  of 
address  space  are  used.  The  stack  starts  in  VAX  PI  space  and  grows  towards  low  memory.  No  space  is 
allocated  for  the  Push  Down  List  Instead,  the  PDL  is  stored  on  top  of  the  stack,  as  no  choice  points  or 
environments  will  be  placed  on  the  stack  while  unifying  two  lists. 

Memory  locations  7FFF  0004  and  7FFF  0008  are  reserved  for  process  information  which  would  be 
lost  when  executing  PLM  instructions.  A  Prolog  program  is  invoked  by  an  operating  system  call  to  pro¬ 
cedure  main,  which  performs  some  initialization  and  jumps  to  a  subroutine  which  executes  the  Prolog 
code.  The  return  address  to  the  main  procedure  is  stored  in  location  7FFF  0004.  The  frame  pointer  to  the 
stack  frame  created  by  the  operating  system  call  is  saved  in  location  7FFF  0008.  These  data  must  be  saved 
as  the  PLM  instructions  do  not  follow  the  procedure  call  and  stack  frame  semantics  of  the  VAX  architec¬ 
ture. 

Nearly  64  KBytes  of  high  memory  are  reserved  for  the  trail.  This  portion  of  the  memory  stores 
addresses  of  bindings  which  must  be  undone  upon  goal  failure.  The  uppermost  portion  of  process  PI  space 
is  reserved  for  UNIX  control  information. 

4.  Process  Control 

It  is  intended  that  the  Prolog  system  will  execute  within  a  multiprogramming  environment.  Thus  the 
entire  Prolog  process  state  is  stored  in  the  sixteen  VAX  general  purpose  registers  which  are  saved  in  the 
process  control  block. 

In  general,  interrupts  are  handled  between  instruction  boundaries.  All  process  information  is  safely 
stored  in  the  process  control  block  when  interrupts  are  executed.  However,  many  PLM  instructions  execute 
in  non-determinate  time  due  to  the  usage  of  the  dereference,  unify,  bind,  fail,  and  trail  routines.  When  the 
machine  unifies  long  lists  or  traces  through  long  dereference  chains,  any  interrupt  must  wait  for  the  opera¬ 
tions  to  complete,  which  may  cause  unacceptable  latency  for  certain  real-time  applications.  Wherever  these 
long  loops  occur  in  the  microcode,  the  VAX  first  part  done  mechanism  [10]  is  used  to  allow  processing  of 
interrupts  within  an  instruction  boundary.  The  process  state  is  preserved  and  execution  will  later  resume 
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where  the  instruction  had  left  off. 

Machine  exceptions,  such  as  page  faults,  are  processed  immediately.  The  instruction  is  restarted  after 
the  exception  is  processed,  either  at  the  beginning  or  at  an  intermediate  state,  depending  on  whether  the 
first  part  done  mechanism  was  in  effect.  In  the  first  case,  the  processor  registers  are  restored  to  their  values 
before  the  instruction  began  execution,  and  the  instruction  is  re-executed.  In  the  second  case,  the  processor 
registers  are  restored  to  their  state  at  the  time  of  interrupt,  and  processing  is  resumed  from  that  point.  In 
both  cases,  modifications  to  memory  are  not  backed  up.  For  all  instructions  the  microcode  is  designed  to 
insure  that  multiple  writes  are  atomic  or  to  order  the  writes  such  that  if  a  fault  occurs  before  the  instruction 
completes,  the  process  can  resume  without  error. 

5.  Implementation  of  the  PLM  Instruction  Set 

Each  of  the  PLM  instructions  is  implemented  as  newly  defined  VAX  instructions.  Extended  VAX 
opcodes  represent  each  construct,  with  its  associated  microcode  resident  along  with  the  host  microcode. 
The  decode  RAM  has  been  modified  to  provide  correct  fork  address  generation  when  the  IBOX  encounters 
one  of  the  newly  defined  opcodes. 

The  operands  of  PLM  instructions  can  be  partitioned  into  four  types:  argument  registers  (Xi),  per¬ 
manent  variables  (Yi),  labels  (L),  and  constant  literals  (N).  Operands  are  encoded  using  VAX  addressing 
modes  and  conveniendy  evaluated  by  the  IBOX.  Argument  registers  are  specified  with  register  mode;  per¬ 
manent  variables  in  the  current  environment  are  specified  via  displacement  mode  fi’om  the  current  environ¬ 
ment  pointer,  labels  and  constants  form  32  bit  literals  in  the  instruction  stream.  Samples  of  the  instruction 
format  are  shown  in  figure  5.4. 

The  instruction  format  contains  some  inefficiencies.  Some  contributing  factors  are  the  extended 
opcode  (FD)  byte,  and  the  use  of  32  bit  literals  for  labels.  The  extended  opcode  byte  requires  as  extra 
IBOX  microcycle  to  decode,  and  increases  the  length  of  the  instruction  stream.  Since  most  of  the  single 
byte  opcodes  are  used  by  the  native  VAX  instruction  set  little  can  be  done  about  this  limitation.  Labels 
could  be  encoded  more  efficiently  as  displacements  from  the  current  program  counter.  One  or  two  bytes  of 
displacement  may  be  sufficient  in  many  cases  to  represent  the  target  address.  However,  at  present  no  two- 
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pass  assembler  for  the  PLM  code  necessary  to  produce  such  displacements  has  been  written. 

6.  Implementation  of  the  Prolog  Built-in  Predicates 

The  built-in  functions  of  Prolog  provide  services  not  supported  by  the  clause  control  and  unification 
operations  of  pure  Prolog.  These  services  include  input/output,  arithmetic,  metalogical,  and  program 
modification  operations.  Built-in  functions  are  implemented  in  four  ways,  as  macro  expansions  of  PLM 
instructions,  new  VAX  FD  instructions,  Prolog  library  procedures,  and  C  functions.  The  macro  expansion 
technique  is  implemented  by  the  PLM  compiler  and  won’t  be  discussed  here. 

6.1.  New  Instructions 

Certain  built-in  functions  can  be  performed  by  the  microcode  and  datapath  of  the  VAX  8600.  An 
efficient  technique  is  to  create  new  microcode  and  allocate  a  new  FD  instruction  to  each  of  these  built-ins. 
The  following  operations  are  handled  in  this  manner; 

•  Addition  and  subtraction  in  the  is  predicate 

•  Comparison  of  terms  (=,  ==,  >,  <,  >=,  =<) 

•  Metalogical  (atom,  integer,  number,  =..,  length) 

Multiplication,  division,  and  modulo  in  the  is  predicate  are  implemented  with  an  in-fine  combination 
of  new  instructions  and  VAX  instructions.  The  VAX  instructions  handle  the  arithmetic  operation  on 
untagged  data,  while  the  new  instructions  handle  data  tagging  and  unification. 

6.2.  Built-ins  in  C 

Certain  built-in  predicates  require  services  provided  by  the  UNIX  operating  system  or  access  to  the 
symbol  table  containing  string  representations  of  Prolog  atoms.  These  predicates  are  implemented  as  C 
functions.  Some  examples  are: 

•  Input/Output  (get,  put,  write,  nl,  see,  seen,  tab,  tell,  told) 

•  Metalogical  (name) 


System  (system) 
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Each  built-in  predicate  is  represented  by  a  C  function.  Typed  32  bit  longwords  are  the  parameters 
passed  to  the  functions.  The  C  object  code  is  linked  with  the  PLM  code,  giving  C  functions  access  to  the 
entire  address  space  of  the  Prolog  process. 

Subroutines  for  the  VO  built-ins  used  the  standard  library  functions:  fprintf,  fscanf,  fopen,  and  fclose 
to  generate  I/O  for  the  current  input  and  output  files. 

The  name  predicate  poses  some  difficult  problems,  allowing  new  atoms  to  be  created  under  certain 
circumstances.  The  symbol  table  created  by  the  PLM  to  VAX  assembler  only  accomodates  atoms  parsed 
in  the  PLM  code.  A  data  structure  is  maintained  in  the  C  code  to  store  atoms  created  dynamically  by 
name. 

6  J.  Built-ins  Emulated  in  Prolog 

A  final  method  for  handling  built-in  predicates  is  to  emulate  them  in  Prolog.  Many  Prolog  functions 
can  be  synthesized  by  combinations  of  pure  Prolog  and  other  built-ins.  Currently  the  following  special 
predicates  are  implemented  in  Prolog: 

•  Input/Output  (read) 

•  Metalogical  (arg,  functor) 

Read  scans  a  Prolog  term  from  the  current  input  file,  creating  the  structure  form  of  the  term  on  the 
heap.  Two  new  built-in  functions  were  added  to  support  the  emulation  routine,  readin,  which  scans  the 
current  line  of  input,  and  gettoken,  which  returns  successive  tokens  to  the  emulator.  Tokens  can  be  atoms, 
variables,  and  punctuation.  The  Prolog  code  for  read  parses  successive  tokens  returned  by  gettoken  into  a 
valid  Prolog  structure. 

Arg  and  functor  are  easily  synthesized  in  Prolog  given  the  availability  of  the  univ  (=..)  and  length 
functions  in  microcode. 

The  Prolog  code  for  read,  arg,  and  functor  is  compiled  to  a  PLM  code  program.  The  PLM  to  VAX 
assembler  merges  the  PLM  code  for  built-ins  with  the  PLM  code  for  the  user’s  application. 
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7.  Implementation  of  Basic  Prolog  Routines 

Several  basic  Prolog  functions  used  by  many  of  the  PLM  constructs  are  also  implemented  in  micro¬ 
code.  These  include  the  dereference,  decdr,  unify,  and  fail  routines.  Only  the  fail  routine  is  direcdy  accessi¬ 
ble  to  the  user  to  initiate  backtracking.  The  dereference  routine  follows  a  chain  of  variables  until  a  struc¬ 
ture,  list,  constant,  or  unbound  variable  is  encountered.  The  decdr  routine  supports  the  cdr-coding  of  lists, 
and  insures  that  a  list  is  traversed  correcdy. 

The  unify  routine  performs  the  unification,  binding,  and  trailing  operations  necessary  when  two  Pro¬ 
log  variables  are  unified.  The  fail  routine  resets  all  trail  addresses  to  unbound  variables  upon  goal  fadure, 
and  restores  the  state  of  the  PLM  registers  from  the  last  choice  point  placed  on  the  stack. 

Nearly  700  lines  of  microcode  were  added  to  the  VAX  8600  to  implement  the  PLM  architecture. 

8.  Sample  Compilation  Process 

In  this  section  a  Prolog  example  is  followed  through  the  compilation  process. 

The  Prolog  procedure  concat,  used  to  concatenate  two  lists,  is  shown  below.  The  procedure  consists 
of  two  clauses,  each  with  three  arguments.  The  first  two  arguments  represent  lists  to  be  concatenated;  the 
last  represents  the  resulting  list  The  first  clause  provides  the  temination  condition;  a  null  list  concatenated 
with  list  L  is  simply  L.  The  second  clause  handles  the  general  case;  concatenating  a  list  whose  first  ele¬ 
ment  is  X  and  remainder  is  LI  to  list  L2  is  X  followed  by  the  concatenation  of  LI  and  L2. 

concat(n,L,L). 

concat([XILl],L2,[XIL3]) ;-  concat(Lld.2d.3). 

The  first  step  in  the  transformation  process  involves  compiling  the  Prolog  source  code  to  the  instruc¬ 
tions  of  the  PLM  architecture. 

procedure  concat/3 

switch_on_term  _371,_372,fail 

_373: 

try_me_else  _374 

_371: 

get_value  X2,X3 

get_nil  XI 
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proceed 

374: 

trust_me_else  fail 
372: 

getjist  XI 
unify_variable  X4 
unify_cdr  XI 
getjist  X3 
unify_value  X4 
unify_cdr  X3 
execute  concat/3 


end 

The  intermediate  assembler  translates  each  PLM  instruction  into  a  newly  defined  VAX  instruction. 
To  avoid  modifying  the  VAX  assembler  as,  the  intermediate  assembler  generates  .byte,  .word,  and  .long 
directives  followed  by  the  opcode,  operand  specifier,  or  constant  specified  in  hexadecimal.  As  recognizes 
only  the  native  VAX  assembly  language  instructions  such  as  movl,  addl,  etc. 

For  example,  the  first  switch_on_term  instruction  in  procedure  concat  is  represented  by  its  two  byte 
opcode  38fd,  followed  by  three  labels.  Labels  are  32  bit  addresses  in  the  instruction  stream  (specified  by 
the  byte  code  0x8f  followed  by  the  longword  address).  The  address  Oxffffffff  represents  a  fail  label. 


concat_3: 

.word  0x38fd 
.byte  0x8f 
.long  _371 
.byte  0x8f 
.long  _372 
.byte  0x8f 
.long  Oxffffffff 


.word  0x3bfd 
.byte  0x8f 
.long  _374 


371: 

.word  OxObfd 
.byte  0x52 
.byte  0x51 

.word  0x09  fd 
.byte  0x50 

.word  OxOffd 


374: 


27 


.word  Oxlffd 


372: 

.word  OxOSfd 
.byte  0x50 

.word  0x28fd 
.byte  0x53 

.word  0x22fd 
.byte  0x50 

.word  OxOSfd 
.byte  0x52 

.word  0x26fd 
.byte  0x53 

.word  0x22fd 
.byte  0x52 

.word  0x05fd 
.byte  OxSf 
.long  concat_3 
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Reference 


10 

c 

G 

pointer 

Conefant 

— 

1  - 

c 

G 

XX  identifier 

XX  =  00  -  small  integer 

01  -  other  numeric  value 
10 -atom 
11  -  NIL 


C  =  0  -  non-cdr 

1  -cdr 

G  =  garbage  collect 


Figure  5.1:  Data  Representation 


Virtual  Address 
0000  0000 


VAX  Memory  Space 


07FF  FFFF 
0800  0000 


3FFF  FFFF 
4000  0000 


77FF  FFFF 
7800  0000 


7FFF  0003 
7FFF  0004 


7FFF  OOOB 
7FFF  OOOC 


7FFF  FFFF 


Figure  5.3:  Virtual  Memory  Allocation 


Chapter  6 

Measurements  and  Analysis 

1.  Measurement  Philosophy 

Conventionally,  the  performance  of  a  Prolog  implementation  is  measured  in  logical  inferences  per 
second  (LIPS).  As  mentioned  previously,  a  logical  inference  represents  the  invocation  of  a  Prolog  pro¬ 
cedure.  Each  PLM  call,  execute,  or  escape  instruction  executed  is  counted  as  a  logical  inference.  Dividing 
the  total  inference  count  by  execution  time  results  in  the  LIPS  measure  for  a  particular  benchmark. 

Accounting  for  the  execution  time  due  to  built-in  predicates  can  be  a  problem.  For  example,  a  Pro¬ 
log  coprocessor  may  not  be  able  to  do  I/O  in  the  read  or  write  predicates,  or  division  in  the  is  predicate, 
leaving  these  operations  to  its  general  purpose  host.  In  the  simulator  for  the  PLM  special  purpose  proces¬ 
sor,  no  execution  time  is  counted  for  built-ins  which  are  performed  externally. 

The  measurement  philosophy  taken  in  this  report  is  to  eliminate  as  much  as  possible  inconsistencies 
in  reponed  execution  time  due  to  built-in  predicates.  First,  all  occurrences  of  the  write  and  nl  built-ins, 
which  are  non-essential  to  the  correct  execution  of  the  benchmarks,  were  removed.  However,  discrepan¬ 
cies  due  to  the  essential  built-ins,  such  as  the  is  predicate,  still  exist 

Four  sets  of  performance  numbers  will  be  presented  in  the  next  section.  Three  sets  belong  to  imple¬ 
mentations  available  on  the  same  general  purpose  machine,  namely  the  VAX  8600.  These  results  include 
the  execution  time  for  all  the  Prolog  built-in  predicates.  The  other  set  of  results  belong  to  the  Berkeley 
PLM  coprocessor,  which  executes  most  of  the  built-ins  directly  in  its  microcode.  The  PLM  exjjects  its  host 
to  perform  the  remaining  built-ins,  and  attributes  zero  time  for  these  operations. 

2.  Performance  Measurements 

The  performance  of  the  microcoded  implementation  was  measured  on  fourteen  common  bench¬ 
marks.  The  standard  technique  of  measuring  the  cpu  time  for  multiple  iterations  of  the  benchmark  was 
used.  Multiple  iterations  are  necessary  to  increase  the  accuracy  of  the  measurement,  especially  for  short 
benchmarks.  Dividing  the  total  cpu  time  by  the  number  of  iterations  results  in  the  execution  time  for  the 
particular  benchmark.  The  measurements  were  taken  with  the  UNIX  time  facility. 
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2.1.  Implementations  on  General  Purpose  Computers 

The  results  are  compared  with  the  performance  of  the  other  systems  available  on  the  VAX  8600, 
interpreted  C-Prolog  and  compiled  BIM-Prolog. 

Table  6.1  summarizes  results  on  the  benchmarks  from  these  three  Prolog  systems.  The  first  column 
corresponds  to  the  microcoded  implementation  of  Prolog.  The  second  column  corresponds  to  BIM-Prolog, 
which  compiles  to  the  native  VAX  architecture.  The  last  column  corresponds  to  the  C-Prolog  interpreter. 
Performance  results  for  the  BIM  and  C-Prolog  systems  were  taken  with  the  cputime  built-in  predicate. 


Performance  of  Various  VAX  8600  Prolog  Systems 


Benchmark 

u-coded  8600 
klips 

BIM_Prolog 

klips 

C-Prolog 

klips 

106 

42 

5.6 

44 

16 

3.8 

122 

38 

5.5 

mumath 

83 

26 

5.3 

pri2 

118 

8 

3.1 

queens 

103 

12 

2.5 

nrev 

130 

45 

7.6 

qs4 

111 

32 

5.3 

palin25 

79 

26 

5.5 

times  10 

56 

16 

3.5 

divlO 

46 

14 

3.3 

loglO 

59 

16 

2.6 

ops8 

70 

20 

3.8 

query 

95 

43 

2.7 

averages 

85 

25 

4.3 

Table  1:  Comparative  Performance  of  VAX  8600  Prolog  Implementations 


The  results  show  that  our  microcoded  PLM  interpreter  provides  the  best  performance  of  these  three 
systems,  averaging  85  kilolips  over  the  fifteen  benchmarks.  The  next  fastest  implementation  is  BIM- 
Prolog,  at  an  average  of  25  kilolips,  followed  by  C-Prolog  at  4  kilolips.  Peak  performance  for  all  of  the 
systems  is  on  the  naive  reverse  (nrev)  benchmark,  where  the  microcode,  BIM,  and  C-Prolog  perform  at 
131,  45,  and  8  klips  respectively.  From  the  normalized  results  in  Table  6.2,  we  see  that  the  microcode  is 
over  three  times  faster  than  BIM  Prolog,  and  nearly  twenty  times  faster  than  C-Prolog. 
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Normalized  Performance  of  Various  VAX  8600  Prolog  Systems 

Benchmark 

u-coded  8600 
klips 

BIM_Prolog 

klips 

C-Prolog 

klips 

coni 

1 

.40 

.05 

con6 

1 

.36 

.09 

hanoi 

1 

.31 

.05 

mumath 

1 

.31 

.06 

pri2 

1 

.06 

.03 

queens 

1 

.12 

.02 

nrev 

1 

.35 

.06 

qs4 

1 

.29 

.05 

palin25 

1 

.33 

.07 

timeslO 

1 

.29 

.06 

divlO 

1 

.30 

.07 

loglO 

1 

.27 

.04 

ops8 

1 

.29 

.05 

query 

1 

.45 

.03 

averages 

1 

.29 

.06 

Table  6.2:  Normalized  Performance  Ratios  of  VAX  8600  Prolog  Implementations 

As  expected,  the  compiled  systems  (microcode  and  HIM)  outperform  the  interpreted  system  (C- 
Prolog).  On  the  primes  benchmark  (pri2),  DIM  Prolog  is  noticably  slower  than  average,  being  only  twice 
as  fast  as  C-Prolog.  This  program,  which  finds  prime  numbers  with  the  sieve  of  Eratosthenes  algorithm, 
executes  a  large  number  of  modulo  operations.  Since  none  of  the  other  benchmarks  contains  this  opera¬ 
tion,  we  suspect  that  modulo  in  BIM  is  not  implemented  in  a  particularly  efficient  manner,  at  least  in  the 
version  we  are  using  (version  2.0). 

Overall,  the  results  support  the  claim  that  symbolic  computations  are  more  efficiently  implemented 
in  microcode  rather  than  the  higher-level  VAX  instruction  set  The  microcode  is  over  three  times  faster 
than  BIM  Prolog  although  both  are  based  on  the  Warren  abstract  architecture.  The  results  also  support  the 
notion  that  compiled  Prolog  systems  can  provide  order  of  magnitude  performance  increases  over  inter¬ 
preted  systems.  BIM-Prolog  performs  nearly  an  order  of  magnitude  better  than  interpreted  C-Prolog  by 
eliminating  the  dynamic  translation  process  from  an  internal  form  to  VAX  code. 


2.2.  General  vs.  Special  Purpose  Implementations 

Table  6.3  compares  results  on  the  same  programs  between  the  microcoded  86(X)  implementation  and 
the  Berkeley  PLM  special  purpose  Prolog  coprocessor.  The  performance  results  are  not  normalized  to  the 
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cycle  time  of  each  machine;  a  column  in  Table  6.3  provides  normalized  performance  ratios.  Essentially, 
the  PLM  outperforms  the  8600  in  all  the  benchmarks  except  for  hanoi,  pri2,  and  queens,  although  on  aver¬ 
age  the  8600  performs  within  15%  on  an  unnormalized  and  25%  on  a  normalized  basis. 


8600  Microcode  vs.  PLM 

Benchmark 

unnormalized 
u-coded  8600  PLM 
klips  klips 

normalized 

8600/PLM 

coni 

106 

185 

.47 

con6 

44 

49 

.67 

hanoi 

122 

104 

.89 

mumath 

83 

96 

.66 

pri2 

118 

107 

.90 

queens 

103 

75 

1.00 

nrev 

130 

185 

.57 

qs4 

111 

121 

.71 

palin25 

79 

95 

.67 

timeslO 

56 

54 

.76 

divlO 

46 

41 

.73 

log  10 

59 

61 

.77 

ops8 

70 

69 

.75 

query 

95 

123 

.66 

averages 

85 

98 

.73 

Table  6.3:  Microcoded  8600  Prolog  vs.  PLM 

Several  comments  on  these  results  are  in  order.  The  measurements  for  the  Berkeley  PLM  are  simu¬ 
lated  results,  assuming  perfect  single  cycle  memory  access.  The  PLM  simulator  does  not  model  the  execu¬ 
tion  time  to  perform  certain  "external"  escapes,  such  as  division  and  modulo  in  the  is  predicate.  The  results 
for  the  PLM  essentially  account  for  zero  time  to  execute  external  escapes,  rather  than  the  substantial  time 
required  for  the  host  to  receive  operands,  generate  results,  and  return  the  results  to  the  PLM. 

As  an  example,  the  query  benchmark  performs  a  total  of  3528  logical  inferences,  of  which  1900  are 
multiplications  or  divisions.  The  PLM  simulator  used  in  this  report  considers  these  functions  as  external 
escapes,  and  does  not  attribute  execution  time  to  these  operations.  Later  versions  of  the  PLM  simulator 
will  have  multiplication  available  as  a  shift  and  add  routine,  which  saves  the  overhead  of  an  external 
escape  but  provides  lower  performance  than  a  typical  general  purpose  processor.  The  real  performance  of 
the  PLM  on  this  benchmark  may  likely  be  less  then  the  microcoded  8600. 
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Finally,  one  should  point  out  that  the  performance  results  compared  to  the  PLM  include  the  overhead 
associated  with  a  real  system  in  a  real  environmenL  That  is,  the  VAX  8600  is  a  virtual  memory  machine 
operating  in  a  multiprogramming  environment.  Thus  the  overhead  due  to  address  translation,  page  fault 
handling,  and  context  switching  is  included  in  the  measurements. 


Chapter  7 
Conclusions 


1.  Report  Summary 

This  report  describes  an  implementation  of  Prolog  which  provides  for  fast  execution  of  both  the 
numeric  and  symbolic  constructs  of  Prolog.  Symbolic  operations  are  provided  directly  in  microcode,  elim¬ 
inating  the  semantic  gap  associated  with  implementing  Prolog  on  a  general  purpose  machine.  Numeric 
operations  are  executed  with  in-line  VAX  instructions,  eliminating  the  time  consuming  escape  mechanisms 
associated  with  current  special  purpose  Prolog  coprocessors  requesting  a  general  purpose  host.  In  this  sys¬ 
tem  the  host  and  the  Prolog  coprocessor  are  the  same,  and  such  overhead  does  not  exist 

Performance  results  were  presented  for  systems  corresponding  to  four  uniprocessor  execution 
models  for  Prolog.  These  results  indicate  that  the  PLM  special  purpose  coprocessor  provides  maximal  per¬ 
formance,  followed  closely  by  the  VAX  8600  microcoded  implementation,  then  compiled  and  interpreted 
systems  on  the  8600.  The  results  for  the  PLM  do  not  include  the  substantial  time  required  for  the  host  to 
perform  certain  numeric  computations,  thus  the  microcoded  Prolog  system  may  indeed  provide  superior 
performance  for  certain  applications. 

On  the  other  hand,  one  would  be  remiss  to  altogether  dismiss  the  special  purpose  Prolog  coprocessor 
for  at  least  two  important  reasons.  First,  the  state  of  the  an  for  real  Prolog  coprocessors  is  still  in  its  adoles¬ 
cence.  There  are  bound  to  be  improvements  as  people  understand  better  how  to  optimize  the  data  path  for 
Prolog  processing.  Second,  the  large  overhead  incurred  with  the  escape  mechanism  illustrates  another  area 
where  research  in  overall  system  design  of  Prolog/numeric  processing  should  result  in  reducing  that  over¬ 
head.  Indeed,  the  Aquarius  group  at  Berkeley  is  investigating  that  issue. 

But  until  such  better  understanding  occurs  (and  perhaps  even  then),  the  implementation  described  in 
this  paper  may  prove  to  be  the  most  cost-effective  implementation  method  for  handling  computations  that 
have  substantial  symbolic  and  numeric  components. 
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2.  Meeting  the  Project  Goals 

All  four  of  the  project  goals  were  met 

(1)  The  instruction  set  of  the  Berkeley  PLM  was  translated  one-for-one  into  newly  defined  VAX 
opcodes  of  the  form  FD  xy.  These  new  VAX  instructions  perform  the  operations  required  for  each 
PLM  inshuction. 

(2)  The  system  operates  in  a  multiprogramming  environment.  Interrupts  and  exceptions  are  handled  via 
normal  VAX  mechanisms.  The  process  state  is  kept  within  the  VAX  process  control  block  to  insure 
that  a  process  is  restartable. 

(3)  The  native  VAX  architecture  is  preserved.  New  microcode  is  stored  in  unused  microcode  locations 
along  with  the  native  microcode  of  the  8600.  PDP-11  compatibility  mode  microcode  was  removed 
to  gain  additional  microcode  locations,  but  this  did  not  present  any  problems  to  users  of  the  system. 

(4)  The  implementation  outperforms  compiled  (BIM-Prolog)  and  interpreted  (C-Prolog)  Prolog  systems 
on  the  VAX  8600.  Performance  is  superior  to  any  VAX  8600  Prolog  implementations  known  to  the 
author. 
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Appendix  A 

Microcode  Listing 

This  appendix  contains  the  new  EBOX  microcode  and  IBOX  DRAM  entries  added  to  the  V AX  8600 
to  implement  the  Warren  Abstract  Machine.  The  microcode  is  in  hexidecimal  format,  prefaced  by  its 
address  in  control  store. 


EBOX  Microcode 


IbOO:  00al9071c0086230700fdb00 
lb42:  00clb9b0800062b87e201c04 
lb43:  00clb0708000627c7a001cf9 
lb46:  00cl9078800662b476601clc 
lb48:  0881b0410000611060001c58 
lb49;  00al90b8800662307e001c3c 
lb4a:  0801b0400000615860007dc9 
lb4b:  00al90010000625061701cl2 
lb4e:  00a 1 90708008623070005 fOO 
lb50:  00al99300008627061705ro0 
lb53:  00cl9078800662b872601cd2 
lb56:  00al9938800862707ed01c44 
lb58:  00al9938800e62707ed01c48 
lb5e:  0801b0400000611060201cl8 
lb62:  0041b930000862346a001cbc 
lb64;  00419c000000629065721cc3 
lb6a:  00ald930(x)00627067805f00 
lb6c:  00al9930000862786cf21cd3 
lb6e:  088 lb04 100006 11 06020 lc60 
lb6f:  00419c00000062906cb21cG 
lb70:  00al9939800662707eroicb0 
lb71:  00419430000862b06c001cc4 
lb72:  00419c00000062906cb05f00 
lb76:  0801b0400000611060007dc9 
lb77:  00al9031000062306a531c8e 
lb7a:  0801b0410008611468007dc9 
lb7b:  00al90010000621061701cl0 
lb7e:  00clb9bl800862f872501c75 
lbf8:  002194320000623361005f00 
lbf9:  000194000000628b74205f00 
IcOl:  00al90718000623070279e01 
lc02:  00al99310000623869007dc9 
lc03:  00fl99310408623461401e0c 
lc04:  094190410000615c67809c43 
lc05:  00al9039800062307150fe0a 
lc06:  08al98990003713060001c0c 
lc07:  00al90b98006723070001c51 


lc08:  0801b0410008615860007dc9 
lc09;  00fl99310408623461401e0c 
IcOa:  08219073000061b56d007dda 
IcOb:  00al9031000062b46a501c66 
IcOc:  08cl98990003713460001c0e 
IcOd:  08cl90610008621867601c52 
IcOe:  08cl98990003713c60001cl4 
IcOf:  0801b0410008615860001c02 
IclO:  0801b0410008615860007dc9 
Icll:  00al90310000623061531c9d 
lcl2:  0801b04l0008611060007dc9 
lcl3:  OOal 903 1000062706 1705f00 
lcl4:  00al90718000623070001cl6 
lcl5:  00al9039800062307150fe0a 
lcl6:  004198bl000972b44e001d0d 
lcl7;  00al90b98006723070001c70 
lcl8:  00alb03 18000627073 10fe2a 
lcl9:  00al99310000623861009cba 
Ida:  00alb031800062707310fe2a 
Iclb:  00al90010000625061509ce2 
Iclc:  00all9310008627067a01cle 
Icld:  00clb9bl800862f872501c75 
Icle:  0021b4330000623161001c24 
Iclf:  00al9c310000627865601c74 
lc20:  0821b0410000615861207dc9 
lc21:  00al99310000627865201e09 
lc22:  0801b0710008611060007ddb 
lc23:  00al90718000623070009d92 
lc24:  00al9031000062306d509c53 
lc25:  00al9039800062307150fe0a 
lc26:  00al90718000623070001c2c 
lc27:  00al90718000623070005f00 
lc28:  00alb03 18000627073 10fe2a 
lc29:  00cl90bl000862706f001e09 
lc2a:  00alb031800062f47330fe6a 
lc2b:  00al9931000062306d001el8 
lc2c:  00al907b8006623176601c2e 


Ic2d:  00cl9c01000062906c901cee 
lc2e:  00019981000072a076601c34 
lc2f:  00clb9bl800862f872501c75 
lc30:  0821b0710000611469207ddb 
lc31:  (X)al9931000062346d201c32 
lc32:  0821b0710000615c69207ddb 
lc33:  00al9931000062386d001el9 
lc34:  08019073000861b56c201c36 
lc35:  (X)al903980(X)62307150fe0a 
lc36:  00cl9931000962b841001d0d 
lc37:  (X)alb0718(X)8623071001c28 
lc38:  0821b0710000611469207ddb 
lc39;  00al9931000062346d001c3a 
lc3a:  0821b0710000615c69207ddb 
lc3b:  00al9931000062386d001e32 
lc3c:  (X)al90b98006723070001c3e 
lc3d:  08al9919000b613866001d8e 
lc3e:  084190bb0000717d6a201c40 
lc3f:  00clb9bl800862f872501c75 
lc40:  084190bb000671356a001c41 
lc41;  (X)al90718000623070201c42 
lc42:  08419073000961b54e201d0d 
lc43:  08cl9919000b61f466289c4e 
lc44:  06al9051000b603060201c45 
lc45:  00al90718000623070001c46 
lc46:  00al9071c0086230700fdb00 
lc47:  08cl9959000361b461289c4e 
lc48:  00al90718000623070001c49 
lc49:  082190730000613161201c4a 
lc4a:  062199310008613061201d0d 
lc4b;  0801b0010000615860209c5d 
lc4c:  00al99310000623462301c4d 
lc4d:  08alb033000861716ee01c50 
lc4e:  08cl9899000371b860001c0c 
lc4f:  00419c01000862986cb01c06 
lc50:  (X)alb0718008623071209c05 
lc51:  00al90710008627460601c4d 
lc52:  08al9919000b617069001c54 
lc53;  00al9079800e623076401c2e 
lc54:  00al9931000062706cd01c55 
lc55:  08al9919000b61706f201c56 
lc56:  00cl9071000862386e501c0f 
lc57;  00al9079800e623072401c26 
lc58:  00alb031800062787330fe4a 
lc59:  (X)al9039000e623861701c4c 
lc5a:  00clb9bl8(X)862f872501c75 
lc5b:  00clb9bl800862f872501c75 
lc5c:  00alb031800062787ec01c4b 
lc5d:  (X)al99310000623462101c02 
lc5e:  (X)al90718000623070201c0a 
lc5f:  00clb9bl800862f872501c75 
lc60:  00alb031800062787330fe4a 
lc61:  00clb9bl800862f872501c75 
lc62;  00al9O310O(X)627869701c08 


lc63:  00al9931000062f861201c68 
lc64:  00clb9bl800862f872501c75 
lc65:  00clb9bl800862f872501c75 
lc66:  00alb9bl800862b476501c6e 
lc67:  00al90b98006723070001c70 
lc68:  0881b0410000615860007dd2 
lc69:  00al90398006623871501c5e 
lc6a;  00clb9bl800862f872501c75 
lc6b:  00clb9bl800862f872501c75 
lc6c:  00clb9bl800862f872501c75 
lc6d:  (X)al90b9800e627076001c7b 
lc6e;  00al90398000623871509c65 
lc6f:  00al90b9800e627072501c76 
lc70:  00al90718000623070201c71 
lc71:  08alb033000861716ee01c72 
lc72:  (X)alb0718008623071009cl5 
lc73:  0021993 10c01627cc9201c9a 
lc74:  00al99310000627065001e09 
lc75:  00fl993 10408627464 109c6d 
lc76;  00al90718000623070201c78 
lc77:  00al98b9000e62f061201c93 
lc78;  0021943300016231cl201c79 
lc79;  0871907 10c0861b860201c7a 
lc7a:  00al90718009623050001d0d 
lc7b:  08c 1904 10000621 867601c7c 
lc7c;  082190bb0000717d69001c7e 
lc7d;  008190598000722079701c7f 
lc7e:  00al90b98006723070001c80 
lc7f:  08al9051000b613460001c98 
lc80:  00al90b98006723070201c81 
lc81:  084190bb000671bl66001c82 
lc82:  084190bb000671356a201c83 
lc83:  084190bb000671b56e001c84 
lc84;  084190bb0006717d6a201c85 
lc85;  084190bb0006717%2001c88 
lc86:  00alb9bl8008623871001c92 
lc87:  00al907180006230702008el 
lc88:  080190bb000e71fd6c001c89 
lc89;  080190bb000e71bl64001c8a 
lc8a;  080190bb000e717d68201c8b 
lc8b:  080190bb000e713568001c8c 
lc8c:  080190730008617960201c8d 
lc8d;  080190730008613 160201c90 
lc8e;  00alb9bl8008623072101c9b 
lc8f;  00alb9bl8008623076501c9b 
lc90:  084190410008621867601c91 
lc91;  00alb9bl8008623871001c92 
lc92:  00n99310408627469c09c73 
lc93:  00al90718000623070001c94 
lc94:  08alb0330008617563101c96 
lc95:  00clb9bl800862f872501c75 
lc96:  00al90398000623471509c7d 
lc97:  00al90718009623050001d0d 
lc98:  00al90718000623070201c99 


Ic99;  (X)2198bl0008627861061c86 
lc9a:  00al90718009623050001d0d 
lc9b:  00al90718000623070009c95 
lc9c;  09719071000068b861001c9e 
lc9d:  00al90718000623070231ca6 
lc9e:  09al9071000066706G01ca8 
lc9f;  00al9939800062707ef01cal 
IcaO:  00al90718000623070209cad 
leal:  06al9051000b603060201ca2 
lca2:  088190990003713860201ca3 
lca3  :  088190990003713460(X)lca4 
lca4:  088190990003713c60(X)lca5 
lca5:  {X)8199310008623861201cae 
lca6:  002190710(X)0623861001c9c 
lca7;  002199bl0000623861001c9c 
lca8:  0881b0410000611060007dd2 
lca9:  00clb9bl800862f872501c75 
Icaa:  00clb9bl8(X)862f872501c75 
Icab:  00alb0318000627873101df8 
Icac:  (X)alb9bl8(X)8623871201ca0 
lead:  00clb9bl800862f872501c75 
Icae:  008199310(X)1627c41201d0d 
leaf:  00al9071800%23050001d0d 
lebO:  09719041000068d860001ebl 
lebl:  082190bb0006717961001eb2 
lcb2:  (X)al90b98006723070001eb3 
leb3:  080 190bb000e7 1796020 leb4 
leb4:  080190730008613568001eb6 
lebS:  0041993100016234ea001ee2 
leb6:  080190730008617d68201eb8 
leb7:  00al90b9800e627072701ebd 
leb8:  09al9071000066706f301eb9 
leb9:  062199310008617861001ea8 
leba:  00al9071e0086230700fdb00 
lebb:  00alb03 18000627073 101de8 
lebe:  00all9318000627077809eb5 
lebd:  008199310008627060401ee0 
lebe:  00al9071e0086230700fdb00 
lebf:  00al9071e0086230700fdb00 
leeO:  002194330001623 le  120 lee  1 
leel:  00a 19071 800962305000 IdOd 
lee2:  00a 19071 800962305000 IdOd 
lee3:  08al9919000b613066001ede 
lee4:  00el99310000627e67a01ee5 
lee5:  00el99310000627467801ee6 
lee6:  00el9931000062f862701ee8 
lee7:  00al99398006623072201eda 
lee8:  00el9931000062f462501ee9 
lee9:  0871 904 1000862f879601eea 
leea:  008199310008623860001eeb 
Iceb:  008199310008623460201eee 
leee:  008 1993 10008623e60201eee 
leed:  00al903 10000627061705100 
leee:  00819931000862b060001ed0 


leef:  00al99310000623062005f00 
ledO;  008 1993 1000862be60201edl 
ledl:  00el99310009627845701d0d 
led2:  00al90718000623070201ed4 
led3:  08al9919000b613866201ee8 
led4;  00al907b8006623176401ed5 
led5:  00019981000072a076601ed6 
led6:  08019073000861b56e201ed8 
led7:  00al99398006623072201ee0 
led8:  00el9931000062b861001ed9 
led9:  00all9310001627047801d0d 
leda:  00al90718000623070201edb 
ledb:  08alb033000861716ee01ede 
lede:  00al90718000623070209eed 
ledd:  00alb0718008623071201ela 
lede:  00al90718000623070005f00 
ledf:  00elb9bl800862f872501e75 
leeO:  00al90718000623070201eel 
leel:  08alb033000861716ee01ee4 
lee2:  00elb9bl800862f872501e75 
lee3:  00al99310000627861701de5 
lee4:  00al90718000623070009edd 
lee5:  00al90718000623070009eed 
lee6:  00elb9bl800862f872501e75 
lee7:  00alb9bl8008627871701ee5 
lee8:  00al90718000623070001ee9 
lee9:  004190bl000962b046001d0d 
leea;  00el9931000862be62001eeb 
leeb:  08alb033000861716ee01eec 
leee:  00alb0718008623071009e25 
leed:  00elb9bl800862f872501e75 
leee:  08al9919000b613866201efD 
leef:  00al90718009623050001d0d 
lefO;  084190610000621867601efl 
lefl:  08al9919000b613069201ef2 
lef2;  00cl9e21000862d06ee01cf4 
leO:  08al9919000b613066201ef8 
lef4:  08al9919000b617e6f201ef5 
lef5;  00al99310000627061001ef6 
lef6:  00el9071000862386e701ef8 
lef7:  00al99398006623072201eea 
lef8:  00ald9318000627077a05f00 
lef9:  00el90310000627e69509efa 
lefa;  00al90718000623070001b7e 
lefb:  OOal 9071 800062307000 lb7e 
lefe:  00al9931000062386e001efd 
lefd:  00819931000862b466201d00 
lefe;  00al99310000623862201d06 
leff:  00al99310000627064001efe 
IdOO;  094190610008645e67801d01 
IdOl:  002190730008623449001d02 
ld02:  0021993 100016234e9201d04 
ld03:  004 190b  1400862b0660fdb00 
ld04:  00el90310000623e61601d05 


Id05:  0{)al90718108623070001e09 
ld06:  00al99310000623c6c001d08 
ld07:  00cl90bl400062706rofdb00 
ld08:  00819931000862b466201d09 
ld09:  084190410008621867601c91 
IdOa:  (X)al90718009623050001d0d 
IdOb;  004 190b  1400862b0660fdb00 
IdOc:  (X)al90718009623050221d0b 
IdOd:  00al9071c0086230700fdb00 
IdOe;  0021993100016278cl201dl0 
IdOf:  00cl90bl400062706f0fdb00 
IdlO;  00c 1993 10000623c61001dll 
Idll:  00all9310008627067801dl2 
ldl2:  00al90718009623050001d0d 
ldl3:  00al90b98006723070001dl4 
ldl4:  00alb9b38000623171201dl6 
ldl5:  00al9079800e623874401dl3 
ldl6:  082190730000617961209dl5 
ldl7:  00al9079800e623876401dl8 
ldl8:  00al90718000623070201dl9 
ldl9:  08019073000861b56c201dla 
Idla:  00cl9931000962f841201d0d 
Idlb:  00al90718000623070209d33 
Idle:  00alb9bl8008627071001dlb 
Idld:  00all9310008627067a01d20 
Idle:  00al90718000623070009d25 
Idlf:  00al90718000623070209d2d 
ld20:  00al90718009623050001d0d 
ld21:  00al90718000623070009d3d 
ld22:  082190710001613842201d0d 
ld23:  00al9039800662b471701d24 
ld24:  004190bl0008723062201d26 
ld25:  00clb9bl800862f872501c75 
ld26:  00alb9b38000623171001d28 
ld27:  00al90718009623050001d0d 
ld28:  00al90718000623070209d55 
ld29:  00cl9c01000062d065401d2a 
ld2a:  00al9931000062306d001d2b 
ld2b:  0041d0bl000862b066201de5 
ld2c:  0041dc01000062d065601d2e 
ld2d:  00al90718009623050001d0d 
ld2e:  0041 90b 1000062b066005f00 
ld2f:  00clb9bl800862f872501c75 
ld30:  00albl71800062387e201d31 
ld31:  00cl9cll000862906cb09d6b 
ld32:  084190610000621867401d34 
ld33:  00al9071800%23050001d0d 
ld34:  08al9919000b613069201d35 
ld35:  08al9919000b61f861201d36 
ld36:  00al99310000627065201d3e 
ld37:  00clb9bl800862f872501c75 
ld38:  00alb031800062787330fe4a 
ld39:  00c  lb9bl  800862187250  lc75 
ld3a:  00clb9bl800862f872501c75 


ld3b:  00alb03 18000627873 lOldfS 
ld3c:  00alb9bl8008623871001d21 
ld3d:  00clb9bl800862f872501c75 
ld3e:  00cl9071000862386e501d40 
ld3f;  OOal 9071 800962305000 IdOd 
ld40:  004190bl000062b066005f00 
ld41;  08al9919000b613066201d44 
ld42:  00al90010000621061701d22 
ld43:  00ald9310008623866201de5 
ld44:  00al90718000623070201d45 
ld45:  004190bl000062b066005f00 
ld46:  00clb9bl800862f872501c75 
ld47:  00clb9bl800862f872501c75 
ld48:  00al9051000362786d701d49 
ld49:  00019041000072e07d505f00 
ld4a;  00clb9bl800862f872501c75 
ld4b:  08al9919000b613066001d29 
ld4c:  00al90718000623070001d4d 
ld4d;  0021993100016230cl001d50 
ld4e:  00eld8bl000062fc67801d23 
ld4f:  00clb9bl800862f872501c75 
ld50:  00al90718009623050001d0d 
ld51:  00al90718009623050001d0d 
ld52:  0bal90710000617467a01d53 
ld53:  0021907b0000623489001d54 
ld54:  00al90310006629461201d56 
ld55:  00clb9bl800862f872501c75 
ld56:  08219073000061b085001d58 
ld57:  00al90718009623050001d0d 
ld58:  0021b4330000627d69201d59 
ld59:  00alb9bl800862f479209d75 
ld5a:  00al90718000623070005f00 
ld5b:  00al90010000621061509d65 
ld5c:  00al90718000623070201d5d 
ld5d:  08219073000961f9c5201d60 
ld5e:  00al907 18000623070005100 
ld5f:  OOal 907 18000623070005100 
ld60:  00al90718009623050001d0d 
ld61:  08119939000061 986520 ld62 
ld62:  00al99710008621c60401d63 
ld63:  00al90710008621c60609d8d 
ld64:  00al90718000623070001d66 
ld65:  00al90710008623869501d30 
ld66:  08219073000061b56d001155 
ld67:  00al90718000623070005ro0 
ld68:  00al90718000623070009d9b 
ld69:  00al90718000623070001d6a 
ld6a:  00al907b8006623176401d6c 
ld6b:  00al90718000623070005100 
ld6c:  008 1998 1000872a076401d6d 
ld6d:  08019073000861b56c201d6e 
ld6e:  00cl99310000621861001d70 
ld61:  08al9919000b61b866001d32 
ld70:  0021993100016230cl001d71 


45 


ld71:  00all9310001627047801d0d 
ld72;  09fle041000860d86a009da3 
ld73;  088190510003613060201d74 
ld74:  088198990(X)b713860201d76 
ld75:  00alb9bl8(X)862bc71209d7d 
ld76:  08819899000b713460001d78 
ld77;  00clb9bl800862f872501c75 
ld78:  08819899000b713c60001d79 
ld79:  08819899000b71b060201d7a 
ld7a:  08819899000b71bc60001d7b 
ld7b:  08cl98990003713860201d7c 
ld7c:  08cl98990003713c60201d7e 
ld7d:  008190598000722072609d85 
ld7e;  08cl9899000371b460001d80 
ld7f:  00al90b98006723070(x)ld5c 
ld80;  08cl98990003713460001d81 
ld81:  08cl9899000371b060001d82 
ld82:  08cl9899000371b860001d83 
ld83:  00419431000062b06c231dae 
ld84:  00al90718000623070201d86 
ld85:  OOalb9bl80(X)723470201d63 
ld86;  0021993100016230cl001d88 
ld87:  00alb9bl8008623475001d61 
ld88:  00al90718009623050(x)ld89 
ld89;  004 198b  1400872f8660fdb00 
ld8a:  00el9931000862bc62201d8b 
ld8b;  08alb033(XX)861716ee01d8c 
ld8c:  00alb0718008623071209c35 
ld8d:  00a 19071 800662307000 ld56 
ld8e:  084 1906 10000621 86760 ld90 
ld8f:  00clb9bl800862f872501c75 
ld90:  08al9919000b613069001d91 
ld91:  00cl9c21000862d06ec01d94 
ld92:  0021b93100096278cl201d68 
ld93:  00al90718009623050001d0d 
ld94;  08al9919000b617c6ro01d95 
ld95:  00cl9071000862386e501d98 
ld96:  0021b93100096234c9201d68 
ld97:  0021b93100096230cl201d68 
ld98:  0041d0bl000162b046001d0d 
ld99:  00al90718000623070001d9a 
ld9a;  004190bl000962b046001d0d 
ld9b:  00al90718009623050001d0d 
ld9c:  00cl9cll000b62b06cb01d9d 
ld9d;  08cl90610008621867401d9e 
ld9e:  08a 1 99 19000b61 786920 IdaO 
ld9f;  00clb9bl800862f872501c75 
IdaO:  00al99398000623079201dal 
Idal:  00cl9cll000b62b06cb01da2 
lda2:  00al90718000623070201da4 
lda3:  088199190003617066001d74 
lda4:  0041 90b 1000062b066001da5 
lda5:  00cl9071000162384e701d0d 
lda6;  00al90718000623070201da8 


lda7:  00cl9979800862f471201d73 
lda8:  08alb033000861796ee01da9 
lda9:  00alb0718008627871009ddd 
Idaa:  00al90718000623070209ded 
Idab:  00alb9710000627060601dac 
Idac:  002190bl000062b065209df5 
Idad:  084190610000621867401db0 
Idae:  08al989b000b713080001d84 
Idaf:  08al98990003713060201d88 
IdbO:  08al9919000b613869001dbl 
Idbl:  00cl9c21000862d06ee01db2 
ldb2:  08al9919000b617c6f001db4 
ldb3:  08al9919000b613866001d99 
ldb4:  00cl9071000862386e501db5 
ldb5:  00cld931000162b045001d0d 
ldb6;  00819931000862f461201db8 
ldb7:  00al99398006623072001d8a 
ldb8:  00219433010062b48d001db9 
ldb9:  002199b3000862b44d001dba 
Idba:  0971907100086ab86d201dbc 
Idbb:  00alb0318000627873309dc2 
Idbc:  00cl9c310000623c6d001dbd 
Idbd;  00cl9c310000623c62302008 
Idbe:  0081993 1000862f469001dc0 
Idbf;  00al99398006623072001d8a 
IdcO:  00cl9c310000627c65602008 
Idcl:  00el9931000862b461201dc4 
ldc2:  00al9011000b627861501d99 
ldc3:  002190210000621861509dcd 
ldc4:  08alb033000861716ec01dc5 
ldc5:  00alb0718008623071209el5 
ldc6:  00al9011000b627861501d99 
ldc7:  00al9011000b627861501d99 
ldc8:  00alb0718008623071201dc9 
ldc9;  00alb0318000627073109e2a 
Idea;  00al90718000623070201dcb 
Idcb:  002194330008623161201dcc 
Idee;  00alb0718008623071001dce 
Idcd:  00al90710008623469501d9c 
Idee:  00al90210008621061509e3a 
Idef:  00al9011000b627861501d99 
IddO:  00al90718000623070009e45 
Iddl;  00alb0718008627871201dd2 
ldd2:  00alb0318000627873309e4a 
ldd3:  08al9919000b61b066201dab 
ldd4;  00al90718000623070201dd5 
ldd5:  002194330008627%1001dd6 
ldd6:  00alb0718008627871201dd8 
ldd7;  00al9939000e623e62001da6 
ldd8;  00al90210008621861709e5a 
ldd9:  00al90718000623070209e65 
Idda:  00alb071800862b47d201ddb 
Iddb:  00alb031800062f473309e6a 
Idde:  00al90718000623070001dde 


Iddd:  00al90310000621871509de2 
Idde:  (X)219433000862b56d001de0 
Iddf:  00alb971(X)00627060601daa 
IdeO;  (X)alb071800862b47d201del 
Idel:  002190010008629471509e7a 
lde2:  00al9939000e627c6fD01da6 
lde3;  08al9919000b61b066201dab 
lde4:  00al90718000623070009e85 
lde5:  00alb0318000627073101de8 
lde6:  00clb9bl800862f872501c75 
lde7:  00clb9bl800862f872501c75 
lde8:  00al90210008621061509e8d 
lde9:  (X)alb9718008627c76001dea 
Idea:  084 19061 000062 1867409e93 
Ideb:  00219021000062506ee01dec 
Idee:  00al9cll000b623869001dee 
Ided:  002190b9000e627c69001da6 
Idee:  0041b0210008625861601ef7 
Idef:  00cl90bl0001627049001d0d 
IdfO:  00al99398000627079001dfl 
Idfl:  00219021000062506ee01df2 
IdG:  00al9cll000b623869001df3 
ldf3:  0041b0210008625861601df4 
ldf4:  00cl9071000862386e501en 
IdfS:  08al9099000b71b060201dab 
ldf6:  00alb0318000627873101df8 
IdH:  00al90718000623070021dfb 
ldf8:  00al90210008621861509e9d 
ldf9:  00alb9718008627c76201dfa 
Idfa:  084190610000621867409ea3 
Idfb:  004190bl000172b046001d0d 
Idfc:  00219021000062586ec01dfd 
Idfd:  00al9cll000b623069001dfe 
Idle:  0041b0210008625861601en 
Idff:  002190bl000872b065201dad 
leOO:  00al99398000627079001e02 
leOl:  00al90718000623070002008 
le02:  00219021000062586ec01e04 
lc03:  00cl99310000627061201dbe 
le04:  00al9cll000b623069201e06 
le05:  00al90718000623070002008 
le06:  0041b0210008625861601e08 
le07:  00819931000862b861201db6 
le08:  00cl9071000862386e501en 
le09:  00n  99310408623461401e0c 
leOa:  00619931000e72fc6f001dcl 
leOb:  00619931000e72fc6f001dcl 
leOc:  00alb0718008623071001e0d 
leOd:  00alb0718008627871009eaa 
leOe:  00a 1907 1800062307020200a 
leOf:  00al9071800062307020200a 
lelO:  00419971000062f469009f03 
lell:  00al90b98006723070001el2 
lel2:  0021943b0006623569001el3 


lel3:  0021943b0006627d69201el4 
lel4:  08alb033000861fl6ec01el6 
lel5:  00elb9bl800062b471209ela 
lel6:  08alb033000861f96ee09f0d 
lel7;  00al907 18000623070002002 
lel8:  00al99310000627869001elc 
lel9:  00al99310000623069001elc 
lela:  00clb9bl800862f872501c75 
lelb:  00al90718000623070009e25 
lelc:  00cl99710008623862661f2e 
lelA-  00al90398006623871701e20 
lele:  00c lb9bl 800862187250 lc75 
lelf:  00clb9bl800862f872501c75 
le20:  082190730000613569201e21 
le21:  082190730000617d69201e22 
le22;  00cl90110008625861601e23 
le23:  00clb9bl800862b87e201e24 
le24:  002190bl000062f865209f23 
le25:  00clb9bl800862f872501c75 
le26:  00419971000062b465201e28 
le27:  00al90718000623070002008 
le28:  00al9979800862f075201e29 
le29:  00al90bl000862f061201e2c 
le2a:  00a lb07 1800862307 1202001 
le2b:  0021901 10000621061509e35 
le2c;  00al9011000b62b061701e2d 
le2A  00al90bl000862b861001e30 
le2e:  00alb07 1800862307 1202001 
le2f:  00alb07 1800862307 1202001 
le30:  00al98b98008723070201e31 
le31:  00al9011000b62b861501c38 
le32:  00al99310000623069201e33 
le33:  00cl90710008623862661f2e 
le35:  00al9079800e62b079701dca 
le37:  00al99398006623075001dca 
le3a:  00a lb07 1800862307 1202001 
le3b:  00alb9bl800862ro79201dd0 
le3e:  00alb0718008623071202001 
le3f:  00alb0718008623071202001 
le45:  00alb0318000627073101e2b 
le47:  00alb0718008623071202001 
le4a:  00al90718000623070002001 
le4b:  0021901 10000621 86 1709e55 
le4e:  00a 1907 18000623070002002 
le4f:  00al90718000623070002004 
le55:  00al9079800e62b079701dd4 
le57:  00al99398006623075001dd4 
le5a:  00al90718000623070002001 
le5b:  00alb9bl800862f079201dd9 
le5e:  00al90718000623070002002 
le5f:  00al90718000623070002004 
le65:  00alb0318000627873301e4b 
le67:  00al90718000623070202003 
le6a:  00alb071800862b47d202001 


Ie6b:  00al90310000629461709e75 
le6e:  00alb071800862b47d202001 
le6f:  00alb071800862b47d202001 
le75:  00al9079800e62bc79501ddc 
le77:  (X)al9939800662707d201ddc 
le7a:  00alb071800862b47d202001 
le7b;  00elb9bl80{)062707d001de4 
le7e:  00alb071800862b47d202001 
le7f:  00alb071800862b47d202001 
le85:  00alb031800062f473301e6b 
le87;  (X)alb071800862b47d202001 
le8d:  00al90710008623c69501de9 
le8f:  00alb9bl8008623c7c201dea 
le93:  08a 1 99 19000b61 306920 IdfO 
le97:  00al99398000627079201deb 
le9d:  00al90710008623c69701df9 
le9f:  00alb9bl8008623c7c001dfa 
lea3:  08al9919000b613869001e00 
lea7:  00al99398000627079201dfc 
leaa:  00a 1907 18000623070009eda 
leab:  00alb0318000627073309eb2 
leae;  00al90718000623070209ee2 
leaf:  00alb9bl8008623871009eea 
leb2:  00al90210008621061509e8d 
lcb3:  00alb0318000627873109ebd 
leb6:  00al90210008621061509e8d 
leb7:  00al90210008621061509e8d 
lebd:  00alb9bl8008623871209ec5 
lebf:  00a lb971 800862387 1009ecd 
lec5:  00al90718000623070009ed3 
lec7:  00alb0318000627073101de8 
lecd:  00alb0318000627873101df8 
lecf:  00al90718000623070009ed3 
led3:  00a lb031 8000627873 101df8 
led7:  00alb03 18000627073 10 lde8 
leda:  00al90398006623071701eld 
ledb:  00alb03 18000627873 10 ldf8 
lede:  00clb9bl800862f872501c75 
ledf:  00clb9bl800862f872501c75 
lee2:  00clb9bl800862f872501c75 
lee3:  00alb03 18000627873 101 df8 
lee6:  00al90398006623071701eld 
lee7:  00clb9bl800862f872501c75 
leea:  00clb9bl800862f872501c75 
leeb:  00alb03 18000627873 10 IdfB 
leee:  00clb9bl800862f872501c75 
lecf:  004 lb02 1000862586 1609ef5 
lef5:  00clb9bl800862f872501c75 
lef7:  00clb9bl800862b87e209efd 
lefd:  09cl90610000615c67801el0 
leff:  00al90718c09623050001d0d 
IfOO:  00al90718000623070005f00 
1103:  00cl9979800e62b879001ell 
lf07:  00al9979800e623c79001ell 


IfOd:  00al99310000623465009fld 
IfOf:  00al90718000623070209fl5 
lfl5:  00al99310000627c65001c32 
lfl7:  00al99310000627869001el9 
Ifld:  00al99310000627c65201c30 
Iflf:  0821b0710000611469201c2a 
lf23:  00cl9979800862f875001e29 
lf27;  0941905 10008615c67801e26 
lf2e:  00fl99310408623461401e0c 
lf2f:  00al907180006230702008el 
lf40:  08419073000061348a001d0e 
lf41:  00al90718000623070201419 
lf42:  0021993100016230cl001dld 
lf44:  00alb0718008623071207dc9 
lf45:  00alb0318000627073309d5a 
lf46:  08al909b000b617086001d4c 
lf47:  00al90b9800e627076001dl3 
lf48:  00alb0718008623071207dc9 
lf49;  08al99090000611066221dbb 
lf4a:  00419cll000062906cb21dd3 
lf4b;  00cl9079800e62b872401d69 
lf4c:  0801b0710008611060007ddb 
lf4d:  00al9039800662b471501d64 
lf4e:  00clb9bl800862b87e201d72 
lf4f:  08al9919000b613066001d2c 
lf50:  00alblbl8000623871001dlb 
lf51:  00al90710008627060401dlc 
lf52:  00alb9b]8008623871001dlb 
lf53:  00alb9bl8008627071001dlb 
lf54:  0801b0710008611060007ddb 
lf55:  002190210000629461001d52 
lf56:  00alb9bl8008623871031dle 
lf60:  00al99310000623861221db3 
IfcO:  00al99110001623061001d0a 
Ifcl:  000194310001622851201d0d 
lfc2:  002194330008627b61005f00 
lfc3:  008194010000628674205100 
lfc4:  002194330008623361005100 
lfc5:  000194010008628674205100 
lfc6:  00al99110001623061001d0c 
lfc7:  000194310001622851221d03 
lfc8:  080 lb041 00086 10b74007dc9 
lfc9:  00fldlbl800062f877809d42 
Ifcc:  0801b0610000614b74207ddb 
Ifcd:  00alb031800062f473109d4a 
Ifce:  008199310008626b71207dc8 
Ifcf:  00al9931000062b861001c20 
IfdO:  002194330008627b61207dc8 
Ifdl:  00al9931000062b861001c20 
lfd2:  0001943140006228760fdb00 
lfd3:  000 1943 1400062687 15fdb00 
lfd4:  0881b0410000610b74201d38 
lfd6:  000194310008622871201d41 
lfd8:  0021943b0000627b61001d48 


Ifda:  08al909b000b617366201d51 
Ifdc:  002194330008623769201C22 


IBOX  DRAM  Entries 


800:  000000000000000000000001 
801:  000000000000000000000502 
802:  000000000000000000000001 
803:  000000000000000000000001 
804:  000000000000000000000001 
805:  000000000000000000000001 
806:  000000000000000000000001 
807:  000000000000000000000001 
808:  000000000000000000000001 
809:  000000000000000000002859 
80a:  000000000000000000042803 
80b:  000000000000000000000580 
80c:  000000000000000000000001 
80d:  000000000000000000000001 
80e:  000000000000000000000001 
80f:  000000000000000000000001 
810:  000000000000000000000001 
811:  000000000000000000000586 
812:  000000000000000000000001 
813:  000000000000000000000001 
814:  000000000000000000000001 
815:  000000000000000000000001 
816:  000000000000000000000001 
817:  000000000000000000000001 
818:  000000000000000000000001 
819:  000000000000000000042839 
81a:  000000000000000000000507 
81b:  000000000000000000000001 
81c:  000000000000000000000001 
81d:  000000000000000000000001 
81e:  000000000000000000000001 
81f:  000000000000000000000001 
820:  000000000000000000000001 
821:  000000000000000000000589 
822:  000000000000000000000001 
823:  000000000000000000000001 
824:  000000000000000000000001 
825:  000000000000000000000001 
826:  000000000000000000000001 
827:  000000000000000000000001 
828:  000000000000000000000001 
829:  000000000000000000042839 
82a:  000000000000000000000502 
82b:  000000000000000000000001 
82c:  000000000000000000000001 
82d:  000000000000000000000001 
82e:  000000000000000000000001 
82f:  000000000000000000000001 
830:  000000000000000000000583 
831:  000000000000000000000536 
832:  000000000000000000000001 


833:  000000000000000000000001 
834:  000000000000000000000001 
835:  000000000000000000000001 
836:  000000000000000000000001 
837:  000000000000000000000583 
838:  000000000000000000000583 
839:  000000000000000000042839 
83a:  000000000000000000042dl4 
83b:  000000000000000000000001 
83c:  000000000000000000000001 
83d:  000000000000000000000001 
83e:  000000000000000000000001 
83f:  000000000000000000000583 
840:  000000000000000000000583 
841:  OOOOOOOOOOOOOOOOOOOOOOOe 
842:  000000000000000000042d88 
843:  000000000000000000000001 
844:  000000000000000000000001 
845:  000000000000000000000001 
846:  000000000000000000000001 
847:  000000000000000000000583 
848:  000000000000000000000583 
849:  000000000000000000000010 
84a:  000000000000000000042dl4 
84b:  000000000000000000000001 
84c:  000000000000000000000001 
84d:  000000000000000000000001 
84e:  000000000000000000000001 
84f:  000000000000000000000583 
850:  000000000000000000000583 
851:  000000000000000000042839 
852:  000000000000000000042d0c 
853:  000000000000000000000001 
854:  000000000000000000000001 
855:  000000000000000000000001 
856:  000000000000000000000001 
857:  000000000000000000000583 
858:  000000000000000000000583 
859:  000000000000000000042839 
85a:  000000000000000000042d8e 
85b:  000000000000000000000001 
85c:  000000000000000000000001 
85d:  000000000000000000000001 
85e:  000000000000000000000001 
85f:  000000000000000000000583 
860:  000000000000000000000583 
861:  000000000000000000042839 
862:  000000000000000000042d90 
863:  000000000000000000000001 
864:  000000000000000000000001 
865:  000000000000000000000001 


866:  000000000000000000000001 
867:  000000000000000000000583 
868:  000000000000000000000001 
869:  000000000000000000042839 
86a:  000000000000000000044901 
86b:  000000000000000000000001 
86c:  000000000000000000000001 
86d:  000000000000000000000001 
86e:  000000000000000000000001 
86f:  000000000000000000000001 
870:  000000000000000000000001 
871:  000000000000000000042839 
872:  000000000000000000044901 
873:  000000000000000000000001 
874:  000000000000000000000001 
875:  000000000000000000000001 
876:  000000000000000000000001 
877:  000000000000000000000001 
878:  000000000000000000000001 
879:  0000000000000000000005a2 
87a:  000000000000000000000001 
87b:  000000000000000000000001 
87c:  000000000000000000000001 
87d:  000000000000000000000001 
87e:  000000000000000000000001 
87f:  000000000000000000000001 
880:  000000000000000000000583 
881:  0000000000000000000005b6 
882:  000000000000000000000001 
883:  000000000000000000000001 
884:  000000000000000000000001 
885:  000000000000000000000001 
886:  000000000000000000000001 
887:  000000000000000000000583 
888:  000000000000000000000583 
889:  0000000000000000000005b6 
88a:  000000000000000000000001 
88b:  000000000000000000000001 
88c:  000000000000000000000001 
88d:  000000000000000000000001 
88e:  000000000000000000000001 
88f:  000000000000000000000583 
890:  000000000000000000000583 
891:  00000000000000000000008a 
892:  000000000000000000000510 
893:  000000000000000000000001 
894:  000000000000000000000001 
895:  000000000000000000000001 
896:  000000000000000000000001 
897:  000000000000000000000583 
898:  000000000000000000000583 
899:  00000000000000000000008a 
89a:  000000000000000000000591 
89b:  000000000000000000000001 


89c:  000000000000000000000001 
89d:  000000000000000000000001 
89e:  000000000000000000000001 
89f;  000000000000000000000583 
8a0:  000000000000000000000583 
8al:  00000000000000000000008a 
8a2:  000000000000000000000592 
8a3;  000000000000000000000001 
8a4:  000000000000000000000001 
8a5:  000000000000000000000001 
8a6:  000000000000000000000001 
8a7:  000000000000000000000583 
8a8;  000000000000000000000583 
8a9:  00000000000000000000008a 
8aa;  000000000000000000000513 
8ab:  000000000000000000000001 
Sac:  000000000000000000000001 
Sad:  000000000000000000000001 
Sae:  000000000000000000000001 
Saf:  000000000000000000000583 
8c0:  000000000000000000000001 
Scl:  0000000000000000000001 le 
8c2:  000000000000000000000001 
8c3:  000000000000000000000001 
8c4:  000000000000000000000001 
8c5:  000000000000000000000001 
8c6:  000000000000000000000001 
8c7:  000000000000000000000001 
8e8:  000000000000000000000001 
8e9:  000000000000000000000196 
Sea:  000000000000000000000001 
Seb:  000000000000000000000001 
Sec:  000000000000000000000001 
Sed:  000000000000000000000001 
See:  000000000000000000000001 
Sef:  000000000000000000000001 
8f0:  000000000000000000000001 
Sfl:  000000000000000000000118 
8f2:  000000000000000000000001 
SO:  000000000000000000000001 
8f4:  000000000000000000000001 
8f5:  000000000000000000000001 
8f6:  000000000000000000000001 
80:  000000000000000000000001 
818:  000000000000000000000001 
819:  000000000000000000000513 
8fa:  000000000000000000000001 
Sfb:  000000000000000000000001 
Sfc:  000000000000000000000001 
Sfd:  000000000000000000000001 
8fe:  000000000000000000000001 
Sff:  000000000000000000000001 
900:  000000000000000000000583 
901:  00000000000000000000008a 
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902:  000000000000000000000516 
903:  000000000000000000000001 
904:  000000000000000000000001 
905:  000000000000000000000001 
906:  000000000000000000000001 
907:  000000000000000000000583 
908:  000000000000000000000583 
909:  00000000000000000000008a 
90a:  000000000000000000000516 
90b:  000000000000000000000001 
90c:  000000000000000000000001 
90d:  000000000000000000000001 
90e:  000000000000000000000001 
90f:  000000000000000000000583 
910:  000000000000000000000001 
911:  0000000000000000000000a4 
912:  000000000000000000044(187 
913:  000000000000000000000001 
914:  000000000000000000000001 
915:  000000000000000000000001 
916:  000000000000000000000001 
917:  000000000000000000000001 
918:  000000000000000000000001 
919:  0000000000000000000000a4 
91a:  000000000000000000044(187 
91b:  000000000000000000000001 
91c:  000000000000000000000001 
91(1:  000000000000000000000001 
91e:  000000000000000000000001 
91f:  000000000000000000000001 
920:  000000000000000000000583 
921:  000000000000000000042839 
922:  000000000000000000000520 
923:  000000000000000000000001 
924:  000000000000000000000001 
925:  000000000000000000000001 
926:  000000000000000000000001 
927:  000000000000000000000583 
928:  000000000000000000000583 
929:  00000000000000000000052c 
92a:  000000000000000000000001 
92b:  000000000000000000000001 
92c:  000000000000000000000001 
92d:  000000000000000000000001 
92e:  000000000000000000000001 
92f:  000000000000000000000583 
930:  000000000000000000000583 
931:  000000000000000000042839 
932:  000000000000000000000508 
933:  000000000000000000000001 
934:  000000000000000000000001 
935:  000000000000000000000001 
936:  000000000000000000000001 
937:  000000000000000000000583 


938:  000000000000000000000583 
939:  000000000000000000042839 
93a:  000000000000000000000508 
93b:  000000000000000000000001 
93c:  000000000000000000000001 
93±  000000000000000000000001 
93e:  000000000000000000000001 
93f:  000000000000000000000583 
940:  000000000000000000000583 
941:  000000000000000000000021 
942:  000000000000000000044(187 
943:  000000000000000000000001 
944:  000000000000000000000001 
945:  000000000000000000000001 
946:  000000000000000000000001 
947:  000000000000000000000583 
948:  000000000000000000000583 
949:  000000000000000000000021 
94a:  000000000000000000044d87 
94b:  000000000000000000000001 
94c:  000000000000000000000001 
94d:  000000000000000000000001 
94e:  000000000000000000000001 
941:  000000000000000000000583 
950:  000000000000000000000583 
951:  000000000000000000042839 
952:  00000000000000000000058a 
953:  000000000000000000000001 
954:  000000000000000000000001 
955:  000000000000000000000001 
956:  000000000000000000000001 
957:  000000000000000000000583 
958:  000000000000000000000001 
959:  000000000000000000000531 
95a:  000000000000000000000001 
95b:  000000000000000000000001 
95c:  000000000000000000000001 
95d:  000000000000000000000001 
95e:  000000000000000000000001 
951:  000000000000000000000001 
960:  000000000000000000000001 
961:  000000000000000000042839 
962:  000000000000000000044901 
963:  000000000000000000000001 
964:  000000000000000000000001 
965:  000000000000000000000001 
966:  000000000000000000000001 
967:  000000000000000000000001 
968:  000000000000000000000001 
969:  00000000000000000000002a 
96a:  000000000000000000044992 
96b:  000000000000000000000001 
96c:  000000000000000000000001 
96d:  000000000000000000000001 


96e:  000000000000000000000001 
96f:  000000000000000000000001 
970;  000000000000000000000001 
971:  OOOOOOOOOOOOOOOOOOOOOOOe 
972:  000000000000000000044913 
973:  000000000000000000000001 
974:  000000000000000000000001 
975:  000000000000000000000001 
976:  000000000000000000000001 
977;  000000000000000000000001 
978;  000000000000000000000001 
979:  000000000000000000042839 
97a:  00000000000000000000008f 
97b:  000000000000000000044d81 
97c;  000000000000000000000001 
97d:  000000000000000000000001 
97e:  000000000000000000000001 
97f:  000000000000000000000001 
9aO:  000000000000000000000001 
9al:  000000000000000000042839 
9a2:  000000000000000000000586 
9a3:  000000000000000000000001 
9a4:  000000000000000000000001 
9a5;  000000000000000000000001 
9a6:  000000000000000000000001 
9a7:  000000000000000000000001 
9a8:  000000000000000000000001 
9a9:  OOOOOOOOOOOOOOOOOOOOOOOe 
9aa:  000000000000000000042d9a 
9ab;  000000000000000000000001 
9ac;  000000000000000000000001 
9ad:  000000000000000000000001 
9ae:  000000000000000000000001 
9af:  000000000000000000000001 
9bO:  000000000000000000000583 
9b  1;  0000000000000000000028b9 
9b2:  000000000000000000000594 
9b3;  000000000000000000000001 
9b4:  000000000000000000000001 
9b5:  000000000000000000000001 
9b6:  000000000000000000000001 
9b7:  000000000000000000000583 
9b8;  000000000000000000000583 
9b9:  0000000000000000000028b9 
9ba:  00000000000000000000058c 
9bb:  000000000000000000000001 
9bc;  000000000000000000000001 
9bd:  000000000000000000000001 
9be:  000000000000000000000001 
9bf:  000000000000000000000583 
9c0:  000000000000000000000583 
9c  1:  000000000000000000042839 
9c2:  000000000000000000042803 
9c3:  000000000000000000042d9c 


9c4;  000000000000000000000001 
9c5:  000000000000000000000001 
9c6:  000000000000000000000001 
9c7:  000000000000000000000583 
9c8;  000000000000000000000001 
9c9;  000000000000000000042839 
9ca:  00000000000000000000050b 
9cb:  000000000000000000000001 
9cc:  000000000000000000000001 
9cd;  000000000000000000000001 
9ce;  000000000000000000000001 
9cf:  000000000000000000000001 
9d0;  000000000000000000000001 
9dl:  000000000000000000042839 
9d2:  00000000000000000000050e 
9d3;  000000000000000000000001 
9d4;  000000000000000000000001 
9d5:  000000000000000000000001 
9d6;  000000000000000000000001 
9d7:  000000000000000000000001 
9d8;  000000000000000000000001 
9d9:  000000000000000000042839 
9da;  00000000000000000000050e 
9db:  000000000000000000000001 
9dc:  000000000000000000000001 
9dd;  000000000000000000000001 
9de:  000000000000000000000001 
9df:  000000000000000000000001 
9eO:  000000000000000000000001 
9el:  000000000000000000042839 
9e2:  000000000000000000000004 
9e3:  000000000000000000044901 
9e4:  000000000000000000000001 
9e5:  000000000000000000000001 
9e6:  000000000000000000000001 
9e7;  000000000000000000000001 
9e8:  000000000000000000000001 
9e9:  000000000000000000042839 
9ea:  000000000000000000044901 
9eb:  000000000000000000000001 
9ec:  000000000000000000000001 
9ed;  000000000000000000000001 
9ee:  000000000000000000000001 
9ef;  000000000000000000000001 
910:  000000000000000000000001 
9fl:  000000000000000000042839 
912:  000000000000000000044901 
913:  000000000000000000000001 
9f4:  000000000000000000000001 
9f5;  000000000000000000000001 
9f6:  000000000000000000000001 
917:  000000000000000000000001 
ab8:  000000000000000000000001 
ab9:  000000000000000000000032 


aba:  000000000000000000044896 
abb:  000000000000000000044901 
abc:  000000000000000000000001 
abd:  000000000000000000000001 
abe:  000000000000000000000001 
abf:  000000000000000000000001 
acO:  000000000000000000000001 
acl:  000000000000000000000032 
ac2:  000000000000000000040898 
ac3:  000000000000000000044d81 
ac4:  000000000000000000000001 
ac5:  000000000000000000000001 
ac6:  000000000000000000000001 
ac7:  000000000000000000000001 
ac8:  000000000000000000000583 
ac9:  000000000000000000000508 
aca:  000000000000000000000001 
acb:  000000000000000000000001 
acc:  000000000000000000000001 
acd:  000000000000000000000001 
ace:  000000000000000000000001 
acf:  000000000000000000000583 
adO:  000000000000000000000583 
adl:  0000000000000000000005b0 
ad2:  000000000000000000000001 
ad3:  000000000000000000000001 
ad4:  000000000000000000000001 
ad5:  000000000000000000000001 
ad6:  000000000000000000000001 
ad7:  000000000000000000000583 
ad8:  000000000000000000000583 
ad9:  0000000000000000000005ae 
ada:  000000000000000000000001 
adb:  000000000000000000000001 
adc:  000000000000000000000001 
add:  000000000000000000000001 
ade:  000000000000000000000001 
adf:  000000000000000000000583 
aeO:  000000000000000000000583 
ael:  0000000000000000000005ba 
ae2:  000000000000000000000001 
ae3:  000000000000000000000001 
ae4:  000000000000000000000001 
ae5:  000000000000000000000001 
ae6:  000000000000000000000001 
ae7:  000000000000000000000583 
ae8:  000000000000000000000583 
ae9:  0000000000000000000005ba 
aea:  000000000000000000000001 
aeb:  000000000000000000000001 
aec:  000000000000000000000001 
aed:  000000000000000000000001 
aee:  000000000000000000000001 
aef:  000000000000000000000583 


afO:  000000000000000000000583 
afl:  0000000000000000000005ba 
af2:  000000000000000000000001 
af3:  000000000000000000000001 
af4:  000000000000000000000001 
af5:  000000000000000000000001 
af6:  000000000000000000000001 
af7:  000000000000000000000583 
ba8:  000000000000000000000001 
ba9:  000000000000000000000181 
baa:  000000000000000000000001 
bab:  000000000000000000000001 
bac:  000000000000000000000001 
bad:  000000000000000000000001 
bae:  000000000000000000000001 
baf:  000000000000000000000001 
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Appendix  B 


Instruction  Formats 


This  appendix  contains  the  format  of  each  newly  defined  VAX  instruction  which  implements  a 
WAM  instruction. 


allocate 

IFDIOOl 

call  L,n 

I  FD  I  01  1  8F I  n  1  8F I L  1 L  I L  1 L  I 


cut 

1  FD  I  02  I 
cutdL 

1  FD  I  03  I  8F I  L  I L I  L  I  L  I 

deallocate 

IFDI04I 

execute  L 

I  FD  I  05  I  8F I  L  I  L  I  L  I  L  1 
fail 

IFDI06I 

get_constant  c,Xi 
I  FD  I  07  I  8F I  c  I  c  I  c  I  c  I  5i  1 

get_list  Xi 
I  FD  I  08  I  5i  I 

get_nil  Xi 
1  FD  I  09  I  5i  I 

get_structure  F,Xi 
I  FD  I  OA  I  8F  I  F  I  F  I F  I  F  I  5i  1 

get_value  Xn,Xi 
1  FD  I  OB  I  5i  I  5n  I 

get_value  Y  n,Xi 

I  FD  I  OC  I  5i  I  CE  I  d  I  d  I  word  displacement 
I  FD  I OC  I  5i  I  AE  1  d  I  byte  displacement 


get_variable  Xn,Xi 
I  FD  I  OD  1  5i  I  5n  I 
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get_variable  Yn,Xi 

I FD I OE  I  5i  I CE  I  d  I  d  1  word  displacement 
I  FD I  OE  I  5i  I  AE  1  d  I  byte  displacement 

proceed 
I  FD  I  OF  1 

escapejnteger 
IFDI  101 

escape_atom 
IFDi  11 1 

escape_gt 
IFDI  121 

escapejt 
IFDI  13  I 


escape_ge 
IFDI  141 

escapeje 
IFDI  151 

trail.Xl 
IFDI  181 

escapejn 
IFDI ID  I 

escape_out 
IFDI IE  I 

trust_me_else  fail 
IFDI IF  I 

escape_eq 
I  FD  I  20 1 

escape_neq 
IFDI  21  I 

unify _cdr  Xi 
1  FD  1  22  I  5i  I 

unify_cdr  Yi 

I  FD  1 23  I  CE  I  d  I  d  I  word  displacement 
I  FD  1 23  I  AE  1  d  I  byte  displacement 

unify  _constant  c 
1  FD  I  24  I  8F I  c  I  c  I  c  I  c  I 


unify_nil 


I FD  I  25  1 


unify_value  Xi 
I  FD  I  26  I  5i  I 


unify_value  Yi 
I  FD  1 27 1  CE I  d  I  d  I 
I  FD  1 27  1  AE  I  d  I 

unify_variable  Xi 
I  FD  I  28  I  5i  I 

unify_variable  Yi 
I  FD  I  29  I  CE  I  d  I  d  I 
I  FD  I  29  I  AE  I  d  I 


word  displacement 
byte  displacement 


word  displacement 
byte  displacement 


unify_void  n 

I  FD  1 2A  I  8F I  n  1  n  I  n  I  n  I 


reset 

I  FD  I  2B  I 

put_constant  c,Xi 
I  FD  1 2C  I  8F I  c  I  c  I  c  I  c  1 5i  I 

putjist  Xi 
I  FD  I  2D  1 5i  I 

put_nil  Xi 
I  FD  I  2E  I  5i  I 

put_structure  F,Xi 
I  FD  I  2F I  8F I  F I  F I  F  I  F  1 5i  I 

retry  L 

I  FD  I  34  I  8F I  L  1  L  I  L  I  L  I 

retry_me_else  L 
I  FD  I  35  I  8F I  L  I  L  I  L  I  L  I 

switch_on_constant  mask 
I  FD  I  36  I  8F I  m  I 

switch_on_structure  mask 
I  FD  1  37  1  8F I  m  I 

switch_on_term  Lc,LlJLs 
1  FD  I  38  I  8F I  Lc  I  Lc  I  Lc  I  Lc  I 
I  8F I  LI  I  LI  I  LI  I  LI  1 
I  8F I  Ls  I  Ls  I  Ls  I  Ls  I 

trust  L 

I  FD  I  39  I  8F I  L  1  L  I  L  I  L  I 


try  L 

I FD  I  3A  I  8F I L  I  L  I L  I L  I 

try_me_else  L 
IFDI3BI8FILILILILI 

put_unsafe_value  Yn,Xi 
1  FD  1 3C  I  CE  I  d  I  d  I  5i  I  word  displacement 
I  FD  1 3C  I  AE  I  d  I  5i  I  byte  displacement 

put_value  Xn^i 
I  FD  I  3D  I  5n  I  5i  I 

put_value  Yn,Xi 

1  FD  I  3E  I  CE  I  d  I  d  I  5i  I  word  displacement 
I  FD  I  3E  1  AE  I  d  I  5i  I  byte  displacement 

put_variable  Xn,Xi 
I  FD  I  57  I  5n  1 5i  I 

put_variable  Yn,Xi 

I  FD  I  58  I  CE  I  d  I  d  I  5i  I  word  displacement 
I  FD  I  58  I  AE  I  d  I  5i  I  byte  displacement 

escapejength 
I  FD  I  59  1 

is_out 
1 FD I 5A I 

escape_univ 
I  FD  I  5B  I 

escape_plus 
I FD 1 5C I 

escape_minus 
I FD I 5D I 

is_in 

I  FD  I  5E  I 
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Appendix  C 


Source  Code  for  Utility  Routines 

This  appendix  contains  the  source  code  for  the  C  and  Prolog  routines  which  emulate  certain  built-in 
procedures,  and  the  C  source  code  for  the  WAM  to  VAX  translator. 


%  file  "builtin.pro" 

% 

%  Prolog  Routines  to  Emulate  the  Read,  Arg,  and  Functor  Predicates 

% 


%  reads  a  prolog  term,  expecting  a  to  end  it. 

read(X)  readln,  getdata(Y),  parse(X,YJRem),  Rem  ==  [], !. 

%  build  a  list  consisting  of  the  input  tokens.  Tokens  are  atoms,  special 
%  atoms  (like  variables,  and  punctuation 

getdata(Y) gettoken(T),  (T  =  Y  =  [];  Y  =  [TlYl],  getdata(Yl)). 

%  parse  a  general  prolog  term,  it  can  be  one  of  three  things: 

%  an  expression  with  no  or  only  *  and  /  operators  present  (factor) 

%  an  expression  which  may  have  +  and  -  in  addition  to  *  and  /  (expr) 

%  a  compound  term  (clause) 

parse(X,Y,Rem) factor(Z,YJReml),  expr(XdlemlZ^JRem). 
parse(X,Y,Rem) factor(X,YJRem). 
parse(X,Y,Rem) clauses(X,Ydlem). 

%  parse  arithmetic  expressions  only,  no  clause  terms.  Used  to  parse 
%  within  a  list  or  structure,  where  only  arithmetic  terms  are  valid 
aparse(X,Y,Rem) factor(Z,YJleml),  expr(Xd^eml,Z,Rem). 
aparse(X,Ydlem) faclor(X,Ydlem). 

%  expr(X,Y2J^em):  X  is  the  returned  expression,  Y  is  the  current  token  list, 
%  Z  is  the  expression  we  have  so  far,  Rem  is  the  remaider  of 

%  the  list  when  we  are  done. 

expr(X,[YIRest]Z^Jlem) logicop(Y),  factor(B,Restdleml),  C  =..  [YZ,B]. 
expr(Xdleml,CJlem), !. 

expr(X,[YIRest],Zdiem) logicop(Y),  factor(B,Rest4^em), 

X=..[Y,Z,B]. 

%  Read  a  prolog  compound  clause  term,  of  the  form: 

%  X :-  x,y,z;t ... 

%  or  x,y,z,t:r ... 

%  Facts  (like  a(X).)  are  simple  structures  and  fall  under  the  factor  designation 
clauses(X,YJRem) :-  term(A,Y,[BIReml]),  atomic(B), 

name(B,":-"),  dclauses(CJRemldlem),  X  =..  [B,A,C], !. 
clauses(X,Y diem) :-  dclauses(X,Y JRem). 

%  read  a  prolog  disjuncted  clause  term,  of  the  form: 

%  X;Y;D  ...  where  X,Y,and  D  can  be  compound 


59 


clclauses(X,YJlem) cclauses(A,Y,[BIReml]),  B  == 

dclauses(C,Reml,Rem),  X  =..  [B,A,C], !. 
dclauses(X,Y^em) cclauses(A,Y,[BlReml]),  B  == 

cclauses(CJReml^em),  X  =..  [B,A,C], !. 
dclauses(X,Y  jlem) cclauses(X,Y,Rem). 

%  read  a  prolog  compound  clause  term,  of  the  form: 

%  x,y,d ...  where  there  are  at  least  two  subgoals,  or  one 
%  subgoal  followed  by  a  disjunction 

cclauses(X,[BIRest],Rem) B  =  dclauses(AJlest,[C,DIReml]), 

C  =  D  =  ,  cclauses(EJlemlJRem), 

X=..  [D,A,E],!. 

cclauses(X,Y,Rem) aparse(A,Y,[BIReml]),  B  == 

cclauses(CJlemldlem),  X  =..  [BA.C].  !• 
cclauses(X,Y,Rem) aparse(X,YJRem), !. 

cclauses(X,[BIRest],Rem) B  =  dclauses(X,Rest,[CIRem]),  C  =  ’)’• 

factor(X,YJlem) multerm(A,Yd^eml),  zfactor(Xd^eml,AJiem), !. 
factor(X,Y,Rem) multerm(X,Ydlem). 

zfactor(X,[YIRest]ZJRem) addop{Y),  multerm(Bd^estdleml), 

C  =..  [Y,Z,B],  zfactor(X,Reml,C,Rem), !. 
zfactor(X,[YIRest]ZJ^em) addop(Y),  multenn(BRestdlem), 

X  =..  [Y2,B]. 

multerm(X,Yjlem) modterm(A,Y,Rem  1),  zmulterm(XJleml,AJlem), !. 
multcrm(X,YJRem) modterm(X,Y,Rem). 

zmulterm(X,[YIRest],Z,Rem) muilop(Y),  modterm(Bdlest,Reml), 

C  =..  [Y,Z,B],  zfactor(X,Reml,C,Rem), !. 
zmulterm(X,[YIRest],Z,Rem) multt)p(Y),  modterm(Bd^est,Rem), 

X=..  [Y2,B]. 

modterm(X,YRem) term(A,Yd^eml),  zmod(Xdieml,A,Rem), !. 
modterm(X,Ydiem) term(X,Ydlem). 

zmod(X,[YlRest],Z,Rem) Y  ==  ’mod’,  term(B,Restdleml), 

C  =..  [Y,Z,B],  zmod(X,Reml,C,Rem), !. 
zmod(X,[YlRest],Z,Rem) Y  ==  ’mod’,  term(B,Restdlem), 

X  =..  [Y2,B]. 

term(X,[LBIRest],Rem)  LB  =  ’[’, !,  geUist(Xd^est,Rem). 

term(X,[LPIRest]Rem)  LP  ==  ’(’, !,  parse(Xd^est,Reml),!, 

Reml  =  [RPIRem],  RP  =  ’)’. 

term(X,[AtomJJ’IRest],Rem) atom(Atom),  LP  =  ’(’, !,  C  =  [AtomlB], 
getstruct(B  Jiest,Rem),  X  =..  C. 

term(X,  [XIRest]  JRest). 
getlist([],IRBIRem],Rem) RB  =  ’]’, !. 

gctlist([XlY]d^estdiem)  aparse(X,Rest,[CommalNRem]),  Comma  == 
getlist(Y  J'lRem,Rem). 

getlist([X]diest,Rem)  aparse(X,Rest,[RBIRem]),  RB  =  ’]’. 
getstruct(_,[RPIRem],Rem) RP  ==’)’, !. 
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getstruct([XIY] Jlest,Rem) aparse(XJlest,[CominalNRem]),  Comma  ==  !, 

getstruct(y  J>IRem  Jlem). 

getstruct([X],RestJlem)  aparse(X,Rest,[RPIRem]),  RP  =  ’)’• 


addopCO  Y  == 
addopOO  Y  == 

multop(Y)  :-Y  ==’*’,!. 
multop(Y) Y  ==  V’. 

logicop{Y) Y  == 
logicop(Y) Y  = 
logicop(Y)  Y  == 
logicop(Y)  Y  == 
logicop(Y) Y  = 
logicop(Y) Y  == 
logicop(Y) Y  ==  ’is’. 

%gettoken(X)  read(X).  %  standin  for  C  routine. 

%readln.  %  standin  for  C  routine. 

%  builtin  functions  arg/3  and  functor/3  implemented  in  Prolog. 

%  can  be  read  into  compiler  after  source  code  to  add  these  utilities 
%  without  paying  the  price  of  added  microcode 

argd^.Y)  Ust(X),  I  =  1, !,  X  =  [YIJ. 
argd^.Y)  Ust(X).  I  =  2, !,  X  =  UY]. 
argd,T,X)  integerd),T  =..  Y,  12  is  I+l,  argld2.Y,X). 

argl(l,[XlJ,X)  !. 

argld.LIY]^ II  isI-l,argldl,Y,X). 

functor(Tp',N)  Iist(T), !,  F  =  ’.’,  N  =  2. 

functor(Td^,N)  T  =..  [FIX],!,  length(X,N). 

functor(TJ^,N)  atom(F),integer(N).functorl(Nd.),T  =..  [FIL]. 

functorl(l,[_l)  :-!• 

functorl(N,UL]) N1  isN  -  1,  functorl(Nl  J..). 


/*  escape.h  */ 


/*  declarations  and  data  structures  used  by  escape.c,  a  group  of 
*  C  functions  which  handle  certain  Prolog  built-in  predicates 
*1 

#include  <stdio.h> 


#define  unix  1 
#ifdef  vms 

#  include  <types.h> 

#  include  ssdef 

#  include  descrip 
#else 

#  include  <sys/types.h> 

#endif 

#define  HEAPSIZE  4000000  /*  size  of  allocated  heap  *! 

#define  CMASK  0x03ffffff  /*  masks  out  constant  tag  */ 

#define  TRAILPRE  0x7fff0000  /*  OR  to  create  trail  pointer  *! 

/*  C  escape  routines  will  place  heap  and  trail  increments  in  the  following 
addresses  for  certain  routines  which  make  bindings,  etc.  Currently  these 
routines  are  name_2,  retract_l,  and  access_3  */ 

#define  TRAILINC  0x7fff0010 
#define  HEAPING  0x7fff0014 

/*  macros  for  bit  manipulation  of  Prolog  data  elements  */ 

#define  signextend(x)  (((x  »  27)  &  1)  ?  (0x70000000  +  (x  &  OxOfffffff)) : 
#define  cdr(x)  (x  &  0x20000000) 

#define  nil(x)  ((x  &  OxccOOOOOO)  ==  OxccOOOOOO) 

#define  list(x)  ((x  »  30)  =  0) 

#define  structure(x)  ((x  »  30)  =  1) 

#define  var(x)  ((x  »  30)  =  2) 

#define  const(x)  ((x  »  30)  ==  3) 

#define  atom(x)  ((x  »  26)  =  0x32)  /*  tag  for  atom:  110010  */ 

#define  number(x)  ((x  »  26)  ==  0x30)  /*  tag  for  int:  1 10000  */ 

#define  numeric(x)  ((x  >=  ’O’)  &&  (x  <=  ’9’)) 

#define  lowercase(x)  ((x  >=  ’a’)  &&  (x  <=  ’z’)) 

#deflne  uppercase(x)  ((x  >=  ’A’)  &&  (x  <=  ’Z’)) 

#define  alphanumeric(x)  (numeric(x)  II  lowercase(x)  II  uppercase(x)) 

#define  special(x)  ((x  >=  ’!’)  II  (x  <=  ’"’)) 

/*  macros  which  check  if  a  structure  functor  is  arithmetic  for  printing  */ 
#define  add(x)  ((x[0]  ==  ’+’)  II  (x[0]  ==  ’-’)) 

#define  mult(x)  ((x[0]  =  ’/’)  II  (x[0]  =  ’*’)  II  (x[0]  =  ’*’)) 


I*  global  variables  */ 

FILE  *outfile,*infile; 
int  staticatom; 
int  dynamicatom;  t* 

int  varcount; 

extern  char  *atomlist[];  /* 
char  dynamiclist[100][80]; 


/*  for  see,  seen,  tell,  told,  get,  put,  write  */ 

/*  count  of  static  atoms,  set  by  initQ  */ 
index  of  next  available  dynamic  atom  */ 

/*  count  of  variables  found  in  current  read  */ 
external  reference  to  WAM  code  atoms  */ 

I*  stores  atoms  created  dynamically  by  "name” 


V 


struct  {  /*  stores  variables  found  during  read  */ 

char  str[80];  /*  in  case  they  recur  in  the  term  */ 

unsigned  int  val;  /*  recurring  vars  bound  to  same  place  * 

)  varlist[20];  /*  can  support  twenty  of  these  */ 

char  string[80];  /*  to  support  readW  */ 

int  ptr;  /*  to  support  read(X)  */ 

/*  forward  definitions  for  non-integer  functions  */ 
unsigned  int  derefQ; 
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/*  escape.c  *! 

I* 

*  C  subroutines  which  implement  several  of  the  Prolog  built-in  functions. 

*  The  main  escape  routines  are  prefaced  by  "plm"  with  the  arity  of  the 

*  built-in  as  the  suffix.  For  example,  to  execute  the  write(X)  built-in 

*  the  plm_write_l(X)  subroutine  is  called. 

*1 

#include  "escape.h" 

Utilities  used  by  the  Main  Escape  Routines  *************’*‘/ 


I* 

*  argwrite;  writes  a  specific  argument  of  a  structure 

★ 

*1 

argwrite(ptr,arg,nest,lst) 
unsigned  int  *ptr; 
int  arg,nest,lst; 

{ 

if  (cdr(*pcr)) 

ptr  =  (unsigned  int  *)  signextend(*ptr); 
while  (arg)  { 
ptr4-f; 
if  (cdr(*ptr)) 

ptr  =  (unsigned  int  *)  signextend(*ptr): 

arg-; 

} 

dowrite(*ptr,nest,lst); 

) 


*  copylist:  handles  simple  case  of  plm_name_2,  where  an  atom  is  turned  into 

*  a  string  list,  i.e.  name(atom,Var). 

*/ 

copylist(atum,name,heap) 
unsigned  int  atum,name,’''heap; 

{ 

int  offset,  heapgrowth  =  0; 
char  *str; 

offset  =  atum  &  CMASK; 

/*  check  if  atom  is  static  (in  code)  or  dynamic  (created  on  fly)  */ 
if  (offset  <  staticatom) 

str  =  atomlist[offset]; 

else 

str  =  dynamiclist[offset  -  staticatom]; 

/*  bind  variable  ’name’  to  a  listpointer  to  the  heap  */ 

"^((unsigned  int  *)signextend(name))  =  (unsigned  int)  heap; 
while  (*str  !=  ’  ’)  { 

heapgrowth  +=  4; 


*heap-H-  =  (*str)  I  OxcOOOOOOO; 
str-H-; 

} 

*heap  =  Oxefffffff;  /*  finish  list  with  a  NIL  */ 
retum(heapgrowth+4);  /*  account  for  NIL  */ 


/* 

*  deref:  dereferences  prolog  data  word  x  and  returns  the  dereferenced 

*  value  of  X. 

*1 

unsigned  int  deref(x) 
unsigned  int  x; 

{ 

for(;;)( 

switch  (x  »  30)  { 

case  0;  I*  list  */ 

case  1:  /*  structure  */ 

case  3;  /*  constant  */ 

retum(x); 

case  2:  /*  variable  */ 

X  =  signextend(x); 

if  (x  =  signextend(’''((unsigned  int*)  x))) 

retum(*(unsigned  int  *)  x);  /*  unbound  */ 

X  =  *(unsigned  int  *)  x;  /*  bound:  loop  */ 
break; 


) 


} 


/* 

*  dowrite:  essentially  performs  the  functions  of  the  write(X)  predicate 

*  except  that  a  nest  flag  is  incorporated  to 

*  print  arithmetic  expressions  nicely.  If  nest  is  set,  then  dowrite 

*  is  being  called  recursively  with  a  parent  functor  of  *  or  /, 

*  thus  any  chile  +  or  -  structures  must  be  surrounded  by  brackets. 

*  Nest  is  set  when  *  and  /  functors  are  found  and  cleared  when 

*  +  and  -  functors  are  found. 

*1 

dowrite(x,nest,lst) 
unsigned  int  x; 
int  nest,lst; 

{ 

unsigned  int  functor; 
char  *ptr; 

switch  (x  »  30)  { 

caseO:  /*Iist*/ 

X  =  signextend(x); 
fprintf(outfile,"  ["); 
printlist((unsigned  int*)  x); 
fprintf(outfile,"]"); 
break; 
case  1: 


/*  structure  */ 


65 


X  =  signextend(x); 

functor  =  (*(unsigned  int  *)  x)  &  CMASK; 
if  (functor  <  staticatom) 

ptr  =  atomlist[functor]; 

else 

ptr  =  dynamiclist[functor  -  staticatom]; 
switch  (ptr[0])  ( 
case 

case /*  write  with  paren  if  nested  */ 

if  (nest)  fprintf(outfile,"(  ")i 
argwrite((unsigned  int  *)  (x  +  4),0,0,0); 
printconstant(*((unsigned  int*)  x)); 
argwrite((unsigned  int*)  (x  +  4),1,0,0); 
if  (nest)  fprintf(outfile,")''): 
fflush(outfile); 
break; 

case 
case  ’*’: 
case  7’: 

case  /*  don’t  need  paren,  but  nested  */ 

argwrite((unsigned  int  *)  (x  +  4), 0,1,0); 
printconstant(*  ((unsigned  int*)  x)); 
argwrite((unsigned  int  *)  (x  +  4),  1,1,0); 
fflush(outfile); 
break; 


argwrite((unsigned  int  *)  (x  +  4),0,0,lst); 
printconstant(*  ((unsigned  int*)  x)); 
argwrite((unsigned  int  *)  (x  +  4),l,0,ist); 
fflush(outfile); 
break; 

case 

if  (1st)  fprintf(outfile,"("); 
argwrite((unsigned  int  *)  (x  +  4),0,0,0); 
printconstant(*((unsigned  int*)  x)); 
argwrite((unsigned  int  *)  (x  +  4),1,0,0); 
if  (1st)  fprintf(outfile,")"); 
fllush(outfile); 
break; 

default; 

if  (strcmp(ptr,"mod")  =  0)  { 
argwrite((unsigned  int  *)  (x  +  4),0,1,0); 
fprintf(outfile," "); 
printconstant(*((unsigned  int*)  x)); 
fprintf(outfile,"  ”); 

argwrite((unsigned  int  *)  (x  +  4),  1,1,0); 

fflush(outfile); 

break; 

)  else  { 

printconstant(* ((unsigned  int*)  x)); 

fprintf(outfile,"("); 

fflush(outfile); 

printlist((unsigned  int*)  (x  +  4)); 


fprintf(outfile,")"); 

fflush(outfile); 

break; 

} 

} 

break; 

case  2:  /*  variable  ♦/ 

X  =  signextend(x); 

if  (x  =  signextend(*((unsigned  int*)  x)))  { 

fprintf(outfile,"_%x",*(unsigned  int*)x  &  OxOfffffff); 
)  else  { 

dowrite(*((unsigned  int*)  x),nest,lst); 

} 

break; 

case  3:  /*  constant  ♦/ 

printconstant{x);  /*  constants  never  need  nest  or  list  */ 
break; 

} 

retum(l); 


/* 

*  init  called  by  mainQ  before  any  WAM  instructions  are  executed. 

*  Prints  message,  sets  default  I/O  files,  and  initializes  heap  space 
*/ 

initO 

{ 

printfC'VAX  8600  PLM,  Version  1.00); 
outfile  =  stdout; 
infile  =  stdin; 

/*  get  count  of  how  many  atoms  we  have  statically  */ 

for  (staticatom  =  0;  *atomlist[staticatom]  !=  0;  staticatom++) ; 
dynamicatom  =  staticatom;  /*  next  available  index  */ 
retum((int)  malloc(HEAPSIZE)); 

) 

/* 

*  matchlist:  called  by  plm_name_2  to  handle  the  case  where  name  is  called 

*  with  a  bound  atom  and  list  The  string  representing  the  atom 

*  is  unified  with  the  list.  The  difficulty  here  is  that  all 

*  bindings  made  must  be  trailed,  as  a  fail  should  undo  them. 

*1 

matchlist(atum,name,trailptr) 
unsigned  int  atum,*name,*trailptr; 

{ 

int  offset,  trailinc  =  0; 
char  *str; 
unsigned  int  data; 

offset  =  atum  &  CMASK; 
if  (offset  <  staticatom) 

str  =  atomlist[offset]; 


else 


str  =  dynamiclist[offset-staticatom]; 
while  (*str  !=  ’  ’)  ( 
if  {nil(*name))  { 
retum(O); 

)  else  if  (cdr(*name)  &&  (var(*name)))  { 
rctiim(O): 

}  else  if  (cdr(*name))  { 

name  =  (unsigned  int  *)  signextend(*name); 

}  else  { 

data  =  *name++: 
data  =  deref(data): 
if  (number(data))  { 

if  (!((char)(data  &  OxfO  =  *str++)) 
retum(O); 

}  else  if  (var(data))  { 

*(unsigned  int  *)  signextend(data)  = 

((unsigned  int)  *str-H-)  I  OxcOOOOOOO; 
*trailptr++  =  data; 
trailinc++: 

}  else 

retum(O); 

} 

) 

if  (nil(*name)) 

retum(trailinc+l):  /•  at  least  1,  for  success  */ 
else 

retum(O); 

} 

/* 

*  nest:  evalutes  possibly  nested  structures  in  "is_2"  statements 
*! 

unsigned  int  nest(x) 
unsigned  int  x; 

{ 

unsigned  int  ’"structptr; 
unsigned  int  result,  vail,  val2; 
char  *operation; 
int  index; 

X  =  deref(x); 

if  (x  »  26  =  0x30)  {  /*  just  return  any  integers  */ 
retum(x); 

) 

else  if  (!structure(x))  I*  else  fail  if  not  structure  */ 
retum(O); 

structptr  =  (unsigned  int*)  signextend(x); 
index  =  structptr[0]  &  CMASK; 
if  (index  <  staticatom) 

operation  =  atomlist[index]; 


else 


operation  =  dynamiclist[index  -  staticatom]; 

/*  now  lets  evaluate  operands  of  the  functor,  but  only  if  the 
functor  is  a  valid  operation  */ 
switch  (operation[0])  { 

case ’m’:  if  (strcnip(operation,'’mod")) 
retum(O); 

case 
case 
case 
case  7’: 

if  (!(vall  =  nest(structptr[l]))) 
retum(O); 

if  (!(val2  =  nest(structptr[2}))) 
retum(O); 

break; 

default: 

retum(O); 

) 


/♦  now  we  have  operands,  lets  get  the  result  */ 
switch  (operation[0])  { 
case ’m’: 

result  =  OxcOOOOOOO  + 

(CMASK  &  ((CMASK  &  vail)  %  (CMASK  &  val2))); 

retum(result); 

break; 

case 

result  =  OxcOOOOOOO  + 

(CMASK  &  ((CMASK  &  vail)  +  (CMASK  &  val2))); 

retum(result); 

break; 

case 

result  =  OxcOOCXKXX)  + 

(CMASK  &  ((CMASK  &  vail)  -  (CMASK  &  val2))); 

retum(result); 

break; 

case 

result  =  OxcOOOOOOO  + 

(CMASK  &  ((CMASK  &  vail)  *  (CMASK  &  val2))); 

retum(result); 

break; 


} 


case  7’: 

result  =  OxcOOOOOOO  + 

(CMASK  &  ((CMASK  &  vail)  /  (CMASK  &  val2))); 

retum(result); 

break; 

default:  I*  this  shouldn’t  happen  */ 

retum(O); 


printconstant:  used  by  plm_write_l  to  print  a  character  constant 


*/ 

printconstant(x) 
unsigned  int  x; 

{ 

int  index; 


switch  ((x  »  26)  &  3)  { 
case  0: 

fprintf(outfile,"%d",(x  &  CMASK)); 

break; 
case  1: 

fprintf(outfile."%r  *((float  *)  (x  &  CMASK))); 

break; 
case  2: 

index  =  x  &  CMASK; 

if  (index  <  staticatom) 

fprintf(outfile,"%s"^tomlist[(index)]); 

else 

fprintf(outfile,"%s",dynamiclist[(index-staticatom)]); 

break; 
case  3: 

fprintf(outfile,"[]"); 

break; 


*  printlist  used  by  plm_write_l  to  print  out  a  list.  Recursive:  calls 

*  plm_write_l  again  to  print  each  element  of  the  list 
*/ 

printlist(x) 
unsigned  int  *x; 

{ 

int  first; 
unsigned  int  y; 

first =  1; 
for  (;;)  { 

if(cdr(*x)){ 

y  =  deref(*x); 
if(nil(y)){ 
return; 

}  else  if  (var(y))  { 

fprintf(outfile,"L%x”,y  &  OxOffffffO; 
return; 

}  else  if  (list(y))  { 

X  =  (unsigned  int  *)  signextend(y); 

)  else  { 

fprintf(outfile,'T'); 

dowrite(y,0,l): 

return; 


)  else  { 

if  (!  first)  { 


)  else  { 

first  =  0; 

) 

dowrite(*x,0,l);  /*  list  is  on  */ 

X++; 

} 

) 

} 


/* 

*  searchtable:  used  by  plm_name_2  to  handle  case  where  list  is 

*  instantiated  and  the  atom  is  a  var  to  be  bound. 

*  In  this  case  the  list  must  not  contain  any  variables 

*  and  must  consist  only  of  integer  constants. 

*/ 

searchtable(atum,name) 
unsigned  int  atum,*name; 

{ 

char  str[80],*temp; 
unsigned  int  data; 
int  i; 

/*  convert  list  pointed  to  by  ’name’  into  a  ascii  string  */ 

temp  =  str, 

for(;;){ 

if  (nil(*name))  { 

*temp=  ’  ’; 
break; 

}  else  if  (cdr(*name)  &&  (var(*name)))  { 
retum(O); 

)  else  if  (cdr(*name))  { 

name  =  (unsigned  int  *)  signextend(*name); 

)  else  { 

data  =  *name-t-+; 
data  =  deref(data); 
if  (!number(data)) 
retum(O); 

else  *temp++  =  (char)  (data  &  Oxff): 

) 

) 

/*  now  scan  for  all  atoms  in  the  table  */ 
for  (i  =  0;  atomlist[i][0]  !=  0;  i++)  { 

if  (strcmp(atomlist[i],str)  =  0)  { 

♦(unsigned  int  *)  signextend(atum)  =  0xc80000(X)  +  i; 
retum(l); 

} 

) 

/*  not  found,  must  create  new  atom  */ 

i  =  dynamicatom  -  staticatom;  /*  get  proper  index  into  dynamiclist  ♦/ 
strcpy(dynamiclist[i],str);  /*  make  new  entry  */ 

♦(unsigned  int  ♦)  signextend(atum)  =  0xc8(XX)(XX)  +  dynamicatom++; 
retum(l); 
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} 

t  /* 

*  writeno:  called  if  end  result  is  a  fail 
*f 

writenoO 

{ 

printfC'OoO); 

fc,  return; 

) 

/* 

*  writeyes:  called  if  end  results  is  a  success 
*1 

writeyesO 

{ 

printfC'OesO); 
return; 

} 


^K.****************************  \iain  Escape  Routines  *************************/ 


/* 

*  get:  get  a  character  from  the  current  input  file  and  unify  it’s  ascii 
^  *  value  with  x 

*1 

plm_get_l(x) 
unsigned  int  x; 

{ 

intc; 

c  =  fgetc(infile);  /*  get  the  character  regardless  */ 

while  (c  =  ’0) 

c  =  fgetc(infile); 

c  =  c  I  OxcOOOOOOO;  /*  convert  it  to  a  constant  */ 

X  =  deref(x);  /*  dereference  x  */ 

switch  (x  »  30)  {  /*  what  is  x?  ♦/ 

case  0:  /*  list  and  structures  fail  */ 

case  1: 

retum(O); 

case  2:  /*  variable  */ 

X  =  signextend(x);/*  get  its  address  */ 

♦(unsigned  int  *)x  =  c;  /*  bind  x  to  c,  x  has  been  trailed  */ 
retum(l); 

case  3:  /♦  constant  */ 

if  (x  =  c)  { 
retum(l); 

)  else  { 

retum(O): 

} 

break; 
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} 


} 

retum(O); 


I* 

*  gettoken:  instantiates  variable  represented  by  tokenptr  to  the  next 

*  token  in  the  input  string.  Tokens  can  be  atoms,  variables, 

*  and  punctuation  combining  to  form  a  valid  Prolog  term. 

*/ 

plm_gettoken_l{tokenptr) 
unsigned  int  tokenptr, 

{ 

char  temp[80]; 
int  i  =  0,  j; 

I*  skip  blanks  in  the  input  */ 

while  ((string[ptr]  =  ’  ’)  H  (string[ptr]  ==  ’0))  ptr++; 

/*  handle  integers  first,  convert  string  to  a  value  and 
bind  the  variable  parameter  to  a  Prolog  numeric  atom  */ 
if  (numeric(string[ptr]))  { 

temp[i++]  =  string[ptr-H-]: 
while  (numeric(string[ptr])) 

temp[i-M-]  =  string  [ptr++]; 
temp[i]  =  ’ 

♦(unsigned  int  *)  signextend(tokenptr)  = 

OxcCXXXXXX)  +  atoi(lemp); 

retum(l); 

) 

/♦  handle  variables  next,  check  if  variable  token  has  been  seen 
previously  and  bind  this  token  to  previous  token  if  true,  else 
do  nothing  as  token 
is  already  instantiated  to  a  variable  */ 
else  if  (uppercase(string[ptr])  II  (string[ptr]  ==  { 

temp[i++]  =  string[ptr-i-+]; 
while  (alphanumeric(string[ptr])) 
temp[i-H-]  =  string  [ptr-H-]; 
temp[i]  =  ’ 

for  (i  =  0;  i  <  varcount;  1++)  { 

if  (strcmp(varlist[i].str,temp)  ==  0)  { 

♦(unsigned  int  ♦)  signextend(tokenptr)  = 
varlist[i].val; 
retum(l); 


/♦  otherwise  var  has  not  been  seen  */ 
strcpy(varlist[varcount].str,temp); 
vartist[varcount++].val  =  tokenptr, 
retum(l); 

} 

/♦  handle  atoms  last  ♦/ 
else  { 

if  (lowercase(string[ptr]))  { 

temp[i++]  =  string  [ptr-H-]; 
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while  (alphanumeric(string[ptr])) 
temp[i-H-]  =  string[ptr++]; 
temp[i]  =  ’ 

) 

else  if  (string[ptr]  =  { 

ptr-H-; 

while  (string[ptr]  != 

temp[i-H-]  =  string  [ptr-H-]; 

ptr-H-; 

temp[i]  =  ’  ’; 

) 

else  if  (special(string[ptr]))  ( 
switch(string[ptr])  { 
case  if  ((string [ptr■^l]  ==  && 

(string  [ptr-H2]  ==  ’>’))  { 
strcpy(temp,"->"): 
ptr  +=  3; 

]  else  { 

temp[0]  = 
tenip[l]  =  ’  ’; 
ptr■^-^; 

) 

break; 

case 

case  if  (string[ptr-i-l]  —  { 

temp[0]  =  string[ptr]; 
tenip[l]  = 
temp[2]  =  ’  ’; 
ptr  -fs  2; 

}  else  ( 

tenip[0]  =  string[ptr]; 
temp[l]  =  ’  ’; 
ptr-H-; 

) 

break; 

default  temp[0]  =  string[ptr]; 
tempil]  =  ’  ’; 
ptr-H-; 
break; 

} 

}  else  retum(0); 

/*  get  atom  value  by  searching  atomlist  */ 

for  (i  =  0;  atomlist[i][0]  !=  0;  i-i-H)  ( 

if  (strcmp(atomlist[i],temp)  =  0)  { 

♦(unsigned  int  *)  signextend(tokenptr)  = 
0xc8(XXXXX)  -t-  i; 
retum(l); 

} 

) 

/*  didn’t  find  atom,  check  dynamic  list  */ 

j  =  dynamicatom  -  staticatom; 

for  (i  =  0;  i  <  j;  i-H-)  ( 

if  (strcmp(dynamiclist[i],lemp)  ==  0)  { 


*(unsigned  int  *)  signextend(tokenptr)  = 
OxcSOOOOOO  +  staticatom  +  i; 
retum(l); 

) 

) 

/*  didn’t  find  again,  make  new  atom  */ 
strcpy(dynamiclistlj]  ,temp); 

♦(unsigned  int  *)  signextend{tokenptr)  = 

OxcSOCKXXX)  +  dynamicatom-H-; 
retum(l); 

} 

} 

/* 

♦  plm_is_2:  escape  function  to  evaluate  structured  "is"  statements. 

* 

*  The  first  parameter  is  the 

*  value  in  XI  and  can  be  one  of  two  things:  an  unbound  var,  in  which  case 

*  the  result  is  stored  at  that  location;  or  a  constant,  which  is  unified 

*  with  the  result  of  the  "is"  function. 

* 

*  The  second  parameter  is  the  value  in  X2  and  should  be  a  structure. 

*  The  structure  functor  should  be  an  atom  which  identifies  the  operation. 

*  Operands  follow  the  functor. 

* 

♦  This  structptr  returns  1  in  rO  upon  success  and  0  upon  failure. 

*/ 

plm_is_2(x2,xl) 
unsigned  int  xl,  x2; 

{ 

unsigned  int  ♦structptr,  ♦dest; 
unsigned  int  result,  nestO: 
char  ♦operation; 
int  index; 


/♦  get  value  of  expression  in  x2  ♦/ 

x2  =  deref(x2); 

if  ((result  =  nest(x2))  =  0) 


retum(O); 

/*  bad  expression  ♦/ 

/♦  unify  value  with  xl " 

V 

xl  =  deref(xl); 
if(!var(xl))  { 

/♦  not  a  var,  unify  ♦/ 

if  (result "  xl)  { 
retum(O); 

) 

else 

/♦  Bitwise  XOR,  false  if  equal  ♦/ 
/♦  not  equal  ♦/ 

retum(l); 

/♦  equal  ♦/ 

}  else  { 

/♦  var,  assignment  only  ♦/ 

dest  =  (unsigned 

int^)  signextend(xl); 

♦dest  =  result; 
retum(l); 

/♦  var  has  been  trailed  ♦/ 
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/* 

*  name:  unifies  ascii  string  of  list  "name"  with  ascii  string  representing 

*  atom  "atum".  Returns  two  values:  in  TfeeOOlO  the  value  to  increment 

*  the  trail  register  by,  in  7fee(X)14  the  value  to  increment  the 

*  heap  pointer  by.  This  value  should  be  a  multiple  of  4. 

*1 

plm_name_2(trail, heap  jiame, atum) 
unsigned  int  trail,  *heap,  name,  atum; 

{ 

int  flag; 

unsigned  int  *trailptr,  *inc_count; 

inc_count  =  (unsigned  int  *)  TRAILINC;  /*  store  #  of  trails  */ 

auim  =  deref(atum); 
name  =  deref(name); 

/*  create  trail  ptr  */ 

trailptr  =  (unsigned  int  *)  ((trail »  16)  I TRAILPRE); 
if  (atom(atum)  &&  var(name))  { 

♦trailptr  =  name;  /*  trail  new  list  */ 

*inc_count  =  0x00040(XX);  /*  inc  trail  by  1  */ 

flag  =  copylist(atum,name4ieap);  /*  create  new  list  */ 
inc_count  =  (unsigned  int  *)  HEAPING;  /*  store  heap  offset  */ 
*inc_count  =  flag;  /*  count  of  written  bytes  on  heap  */ 
retum(l); 

}  else  if  (var(atum)  &&  list(name))  { 

if  (searchtable(atum,signextend(name)))  { 

♦trailptr  =  atum;  /♦  trail  new  atom  ♦/ 

♦inc.count  =  0x(XX)4(XXX);  /♦  inc  trail  by  1  ♦/ 

inc_count  =  (unsigned  int  ♦)  HEAPING; 

♦inc_count  =  4; 
retum(l); 

}  else 

retum(O); 

}  else  if  (atom(atum)  &&  list(name))  { 

flag  =  matchlist(atum,signextend(name),trailptr); 
if  (flag)  {  /♦  flag  =  #  of  bindings+ 1  ♦/ 

♦inc_count  =  0x00040000  ♦  (flag  - 1); 
inc_count  =  (unsigned  int  ♦)  HEAPING; 

♦inc_count  =  4; 
retum(l); 

}  else 

retum(O); 

}  else 

retum(O); 

} 

I* 

♦  nl:  writes  a  newline  to  the  current  output  file 
*/ 

plm_nl_00 

{ 

fprintf(outfile,"0); 

retum(l); 

) 


/* 

*  put:  writes  out  a  character  to  the  current  output  file.  The  character 

*  must  be  expressed  as  an  integer  constant  representing  an  ASCII  value 
*! 

plm_put_l(x) 
unsigned  int  x; 

( 

X  =  deref(x); 
switch  (x  »  30)  { 

case  0:  /*  fails  for  lists,  structures,  and  unbound  variables  */ 

case  1: 
case  2: 

retum(O); 

case  3:  /*  constant  */ 

if(x&0x0c000000)  ( 

fprintf(stderr,"Out;  not  an  integeiO); 
retum(O); 

}  else  { 

fprintf(outfile,"%c",  x  &  CMASK); 

} 

break; 

) 

retum(l): 

) 

/* 

*  readln;  assists  in  emulating  read(X)  by  reading  the  next 

*  Prolog  term  (ending  in  as  a  string. 

*1 

plm_readln_00 

{ 

chare; 
int  i  j; 

if  (infile  ==  stdin) 
printfC’O:"); 

/*  Read  in  the  term,  ended  by  a  */ 

for  (i  =  0,  c  =  getc(infile);;  i++)  ( 

if  ((c  =  ’0)  &&  (infile  ==  stdin))  printf(”I:''); 
string[i]  =  c; 
c  =  getc(infile); 

if  ((string[i]  ==  ’.’)  &&  ((c  =  ’  ’)  II  (c  ==  ’0))) 
break; 

} 

ptr  =  0; 
varcount  =  0; 
retum(l); 

} 


*  see:  sets  the  atom  represented  by  fvar  to  the  current  input  file 


*1 

plm_see_l(fvar) 
unsigned  int  fvar; 

( 

char  *fname; 
int  index; 

fvar  =  deref(fvar); 
if  (!atom(fvar)) 
retum(O); 

index  =  fvar  &  CMASK; 
if  (index  <  staticatom) 

fname  =  atomlist[(index)]; 

else 

fname  =  dynamiclist[(index-staticatom)]; 
infile  =  fopen(fname,"r''); 
retum(l); 

} 

/* 

*  seen:  sets  the  current  output  file  back  to  stdout 
*/ 

plm  seen  (X) 

{ 

if  (infile  ==  stdin)  { 

printfC'Seen:  input  is  stdinO); 
retum(O); 

) 

fclose(infile); 
infile  =  stdin; 
retum(l); 

} 

*  system:  convert  list  into  an  ascii  string  and  use  routine  as  in 

*  C-Prolog 
*/ 

plm_system_l  (command) 
unsigned  int  command; 

{ 

unsigned  int  *string,  data; 
char  commandstring[256],  *Unp; 

#ifdef  vms 

struct  dsc$descriptor_s  s_d; 

#endif 

data  =  deref(command);  /*  should  be  list  of  ascii  codes  */ 
if(!list(data)) 

retum(O);  /*  else  exit  with  fail  */ 

r  set  up  pointer  to  ascii  list  */ 
string  =  (unsigned  int  *)  signextend(data); 
tmp  =  commandstring;  /*  set  up  pointer  to  create  string  */ 

for  (;;)  { 

if  (nil(* string))  [ 
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*tmp=’ 

break; 

)  else  if  (cdr(*string)  &&  (var(*string)))  { 
tetum(O); 

}  else  if  (cdr(*string))  { 

string  =  (unsigned  int  *)  signextend(*string); 

)  else  { 

data  =  *string++; 
data  =  deref(data); 
if  (!number(data)) 
retum(O); 

else  *tmp++  =  (char)  (data  &  OxfO; 

} 

} 

#ifdef  Unix 

system(comniandstring); 

#endif 
#ifdef  vms 

s_d.dsc$w_length  =  strlen(commandstring); 
s_d.dsc$b_dtype  =  DSC$K_DTYPE_T; 
s_d.dscSb_class  =  DSC$K_CLASS_S; 
s_d.dscSa_pointer  =  commandstring; 
lib$spawn(&s_d); 

#endif 

retum(l); 

} 

/* 

•  tab;  writes  sp  spaces  to  the  current  output  file 
*/ 

plm_tab_l(sp) 
unsigned  int  sp; 

{ 

int  i,count; 

sp  =  deref(sp); 
if  (!nuniber(sp)) 
retum(O); 

count  =  (sp  &  CMASK); 
for  (i=0;  i<  count;  i++) 
fprintf(outfile," "); 
retum(l); 

} 

/* 

*  tell:  sets  the  atom  represented  by  fvar  to  the  current  output  file. 
*/ 

plm_tell_l(fvar) 
unsigned  int  fvar; 

{ 

char  *fname; 
int  index; 


fvar  =  deref(fvar); 


if  (!atom(fvar)) 
retum(O): 

index  =  fvar  &  CMASK; 
if  (index  <  staticatom) 

fname  =  atomlist[(index)]; 
else 

fname  =  dynamiclist[(index-staticatom)]; 
outfile  =  fopen(fname,"w"); 
retiim(l); 

) 

I* 

*  told:  sets  the  current  output  file  back  to  stdout 
*1 

plm_told_0() 

{ 

if  (outfile  ==  stdout)  { 

printfC'output  is  already  stdoutO); 
retum(O): 

) 

fclose(oulfile): 
outfile  =  stdout; 
retum(l); 

} 

/* 

*  write:  used  dowriteO  to  write  out  the  prolog  data  item 

*  represented  by  x  to  the  current  output  file. 

*  The  third  parameter  of  dowritcQ  helps  to  reduce  the  number  of 

*  parentheses  to  a  minimum  when  printing  a  arithmetic  expression. 

*  The  second  parameter  signifies  whether  certain  structures 

*  such  as  "x,y"  should  be  enclosed  within  parentheses  (if 

*  it  is  within  another  structure  or  list).  Initially  these 

*  flags  are  set  to  zero,  since  we  are  {Hinting  from  the  root  of 

*  the  expression. 

*/ 

plm_write_l(x) 
unsigned  int  x; 

( 

dowrite(x,0,0):  f*  set  nest,  list  to  zero,  printing  from  the  root  */ 

retum(l); 


) 


/*  plmas.h  */ 

/*  C  header  file  for  the  PLM  to  VAX  assembler  */ 
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/*  definitions  for  opcode  values  for  the  opcode  table  */ 


#define  ALLOCATE  0 

#define  CALL  1 

#define  CUT  2 

#define  CUTD  3 

#define  DEALLOCATE  4 

#define  EXECUTE  5 

#define  FAIL  6 

#define  GET_CONSTANT  7 

#define  GET.LIST  8 

#define  GET.NIL  9 

#define  GET.STRUCTURE  10 

#define  GET_VALUE  11 

#define  GET_VARIABLE  13 

#define  PROCEED  15 

#define  ESCAPE_INTEGER  16 

#define  ESCAPE_ATOM  17 

#define  ESCAPE_GT  18 

#define  ESCAPE.LT  19 

#define  ESCAPE_GE  20 

#define  ESCAPE_LE  21 

#define  TRAIL_X1  24 

#define  ESC_IN  29 

#dcfine  ESC_OUT  30 

#define  TRUST_ME_ELSE  3 1 

#define  ESCAPE_EQ  32 

#define  ESCAPE_NEQ  33 

#define  UNIFY_CDR  34 

#define  UNIFY.CONSTANT  36 

#define  UNIFY_NIL  37 

#define  UNIFY_VALUE  38 

#define  UNIFY_VARIABLE  40 

#define  UNIFY_VOID  42 

#define  RESET  43 

#define  PUT_CONSTANT  44 

#define  PUT_LIST  45 

#define  PUT_NIL  46 

#define  PUT.STRUCTURE  47 

#define  RETRY  52 

#define  RETRY_ME_ELSE  53 

#define  SWITCH_ON_CONSTANT  54 
#define  SWITCH_ON_STRUCTURE  55 
#define  SWITCH_ON_TERM  56 

#define  TRUST  57 

#define  TRY  58 

#define  TRY_ME_ELSE  59 

#define  PUT_UNSAFE_VALUE  60 

#define  PUT_VALUE  61 

#define  PUT_VAR1ABLE  87 

#define  ESCAPE_LENGTH  89 
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#define  IS_01JT  90 

#define  ESCAPE_UNIV  91 

#definePLUS  92 

#define  MINUS  93 

#define  IS_IN  94 

I*  definitions  for  operand  patterns  */ 

#define  NONE  50  /*  no  operands  */ 

#define  L ABEL_OP  51  /*  one  label  operand  */ 

#define  XI_OP  52  /*  one  Xi  operand  */ 

#define  CONST_OP  53  /*  one  constant  operand  */ 

#define  N_OP  54  /*  one  n  operand  */ 

#define  FAIL_OP  55  /*  a  "fail"  operand  */ 

#define  XYI_OP  56  /*  Xi  or  Yi  */ 

#define  CONST_XI  57  /*  a  constant  and  then  an  Xi  */ 

#define  FUNCT_XI  58  /*  a  functor  and  then  an  Xi  *! 

#define  CMASK_LABEL  59  /*  a  mask  and  then  a  label,  then  a  table  */ 

#define  SMASK_LABEL  66  /*  a  mask  and  then  a  label,  then  a  table  */ 

#define  XYN_XI  60  /•  Xn  or  Yn,  then  Xi  */ 

#define  YN_XI  61  /*  Yn  and  then  Xi  */ 

#define  XYN_XI_REV  62  /*  Xn  or  Yn,  then  Xi,  reverse  for  output  */ 

#define  LABEL_N_REV  63  /*  a  label  and  then  n,  reverse  for  output  */ 

#define  LABEL_LABEL_LABEL  64  /*  three  label  operands  ♦/ 

#define  TWO_XI  65  /*  two  operands,  either  Xi,Yi,  or  N  */ 

r  followed  by  Xi  */ 

struct  { 

char  *instruction; 

int  opcode; 

int  operandpattem; 

}  optableG  =  { 

"allocate",  ALLOCATE,  NONE, 

"call",  CALL,  LABEL_N_REV, 

"cut",  CUT,  NONE, 

"cutd",  CUTD,  LABEL.OP, 

"deallocate",  DEALLOCATE,  NONE, 

"execute",  EXECUTE,  LABEL_OP, 

"fail",  FAIL,  NONE, 

"get_constant",  GET_CONSTANT,  CONST.XI, 

"getjist",  GET_LIST,  XI_OP, 

"get.nil",  GET_NIL,  XI_OP, 

"get_structure",GET_STRUCTURE,  FUNCT_XI, 

"get_value",GET_VALUE,  XYN_XI_REV, 

"get.variable",  GET.VARIABLE,  XYN_X1_REV, 

"proceed",  PROCEED,  NONE, 

"put_constant",  PUT_CONSTANT,  CONST_XI, 

"putjist",  PUT.LIST,  XI_OP, 

"put_nil",  PUT_NIL,  XI_OP, 

"put_structure"JPUT_STRUCTURE,  FUNCT_XI, 

"put_unsafe_value"J’UT_UNSAFE_VALUE,  YN_XI, 

"put.value",  PUT_VALUE,  XYN_XI, 

"put_variable",  PUT_VARIABLE,  XYN_XI, 

"retry",  RETRY,  LABEL_OP, 

"retry  _me_else"  ,RETR  Y_ME_ELSE,  LABEL_OP , 
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"switch_on_constant",SWITCH_ON_CONSTANT,  CMASK_LABEL, 
''switch_on_structure".SWITCH_ON_STRUCTURE.  SMASK.LABEL, 
’’switch_on_term",SWITCH_ON_TERM,  LABEL_LABEL_LABEL, 
"trust",  TRUST.  LABEL_OP, 

"trust_me_else",TRUST_ME_ELSE,  FAIL.OP, 

"try",  TRY.  LABEL.OP, 

"try_me_else",  TRY_ME_ELSE,  LABEL.OP, 

"unify_cdr",UNIFY_CDR,  XYI_OP, 

"unify_constant",UNIFY_CONSTANT,  CONST_OP, 

"unify_nU"  ,UNIFY_NIL.  NONE. 

"unify.value",  UNIFY_VALUE,  XYI_OP. 

"  unify  _unsafe_value",UNIFY_V  ALUE,  XYI_OP, 
"unify_variable",UNIFY_VARIABLE,  XYI_OP, 

"unify_void",  UNIFY_VOID,  N_OP. 

"reset",  RESET,  NONE, 

"escape",  ESC_IN,  NONE. 

"plus",  PLUS,  TWO_XI, 

"minus",  MINUS,  TWO_XI, 

"traiLxl".  TRAIL_X1,  NONE, 

"",  0,  0, 

); 
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/*  plmas.c  */ 

4.  /* 

*  converts  one  or  more  Warren  Abstract  Machine  files  into  VAX  assembly 

*  language  files 
*1 

^  #include  <stdio.h> 

#include  "plmas-h" 

/*  Definitions  for  token  types  to  be  found  in  the  input  stream. 

*1 

#define  INSTRUCTION  II 
#define  ESCAPE  12 
#define  LABEL  13 
#define  PROCEDURE  14 
#defineEND  15 

/*  Definition  of  a  token  structure.  A  token  is  a  sequence  of  printable 

*  characters  found  in  the  input  stream  in  between  spaces,  newlines,  tabs 

*  or  other  non-printable  characters.  The  maximum  token  length  is  MAXTOK-1. 

V 

#define  MAXTOR  81 
typedef  struct  { 
int  type; 

w  char  string  [MAXTOR]; 

)  token; 

/*  Symbol  table  structure.  This  structure  is  updated  when  atoms  are  found 

*  in  the  input  sueam  and  then  at  the  end  of  the  output  file,  the  symbol 

*  table  is  inserted. 

*/ 

struct  symbol  ( 

char  string[MAXTOR]; 
struct  symbol  *next; 

]  *symboltable; 

/*  definition  for  switch_on_constant  and  switch_on_structure  tables  */ 
struct  { 

int  index; 

char  string[MAXTOR]; 

)  table_array[256]; 

««•  /*  global  variables  */ 

FILE  *infile;  /*  the  input  file  */ 

FILE  *outfile;  /*  the  file  for  sending  the  assembler  output  */ 

int  inputlinenumber  =  1;  /*  line  count  of  input  for  printing  errors  */ 
int  errorcount  =  0;  /*  number  of  errors  found  so  far  */ 

#define  MAXERROR  10  /*  maximum  number  of  errors  before  quitting  */ 

'•  int  repeatcount  =  1 ;  /•  number  of  times  to  repeat  the  plm  program  */ 

int  morefiles;  /*  flag  signalling  more  files  to  be  assembled  */ 

/*  determines  when  to  output  dummy  allocate  */ 


/*  forward  defintions  for  non-integer  functions  */ 

token  gettokenO; 

unsigned  int  getconstantvalueO: 


main(argc^gv) 
int  argc; 
char  **argv; 

char  **destfile;  /*  finds  the  output  file,  the  last  parameter  */ 
int  argcount; 

/*  note  the  command  line  syntax  is; 

*  plmas  <infile>  [<infiles>]  <outfile> 

*/ 

switch  (argc)  { 
case  1: 
case  2: 

^rintf(stderr,"usage:  plmas  <input  file(s)>  <output  file>0); 

exitO: 

default:  /*  open  the  destination  file  */ 

argcount  =  argc; 
destfile  =  argv; 

while  (-argcount)  destfile-H-;  f*  destination  file  is  last  */ 
if  ((outfile  =  fopen(*destfile,"w"))  ==  NULL)  { 

fprintf(stdeiT, "plmas:  can’t  create  %sO,’*argv); 

exitO; 

) 

argc-;  f*  keeps  parser  from  trying  to  read  dest  file  */ 

break; 

} 

/*  initialize  the  symbol  table  structure  */ 

symboltable  =  (struct  symbol  *)  malloc(sizeof(struct  symbol)); 

symboltable->string[0]  =  ’  ’; 

symboltable->next  =  0; 

/♦  print  header  information  in  assembly  output  file,  including  _main 

*  defintion  and  the  call  to  _iniunsg  and  _doplm 
*1 

printheaderO; 


/*  Parse  the  input  file(s)  and  write  to  the  output  file.  This  is  a  one 

*  pass  assembler.  Since  the  output  is  then  sent  to  the  VAX  assembler, 

*  forward  labels  are  OK.  The  symbol  table  is  created  during  the 

*  parse  phase  and  written  out  at  the  end. 

V 

while  (-argc)  { 

morefiles  =  argc  - 1;  /*  argc  is  1  for  the  last  file  */ 
if  ((infile  =  fopen(*-(-i-argv,"r"))  ==  NULL)  { 

fprintf(stderr,"plmas:  can’t  open  %s0,*argv); 

exitO; 
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parserO; 

fclose(infile): 


/*  Put  the  symbol  table  definition  into  the  output  file.  This  table 

*  contains  the  definitions  for  printing  out  atoms  and  will  be  accessed 

*  by  the  _plm_write  function  in  escape.c 
*/ 

outputsymboltableO: 


/*  This  procedure  implements  the  main  loop  for  the  parser.  It  scans  the 

*  input  file  for  a  token  in  between  instructions,  which  must  either  be 

*  a  label  (which  ends  in  a  the  word  "procedure"  to  start  a  procedure 

*  definition,  the  word  "escape"  to  start  an  escape  function  definition, 

*  the  word  "end"  to  signify  the  end  of  the  file,  or  something  else,  which 

*  is  assumed  to  be  an  instruction  keyword. 

*1 

parserO 

int  end; 

token  nexttoken; 

end  =  0; 
while  (lend)  { 

nexuoken  =  geuokenQ; 
switch  (nexttoken.type)  { 
case  INSTRUCTION; 

end  =  getinstruction(nexttoken); 
break; 

case  ESCAPE; 

end  =  getescapeO; 
break; 
case  LABEL; 

putlabel(nexttoken); 

break; 

case  PROCEDURE; 

end  =  getprocedureO; 
break; 
case  END; 
end=  1; 
break; 

) 

} 

} 


/*  This  procedure  is  called  when  an  an  inter-instruction  token  is  not  a 

*  label,  or  one  of  the  keywords  "procedure",  "escape”  or  "end".  The 

*  string  is  matched  against  the  list  of  instruction  keywords  and  then 

*  the  instruction  specific  operands  are  processed.  A  0  is  returned 


*  if  everything  is  OK,  a  1  is  returned  if  input  processing  should  stop. 
*1 

getinstruction(nexttoken) 
token  nexttoken; 

{ 

int  index; 

index  =  getopcode(nexttoken.string); 
if  (index  ==  -1)  { 
fprintf(stderr, 

"plmas:  line  %d:  unknown  instruction  keyword:  %s0, 
inputlinenuniber,nexttoken.string): 
if  (++enorcount  >=  MAXERROR)  { 

fprintf(stderr, "plmas:  too  many  errors,  goodbyeO); 
retum(l); 

1 

}  else  { 

getoperands(index); 

} 

fprintf(outfile,"0); 

retum(O); 

] 


/*  This  procedure  processes  the  operands  from  the  input  file  and  puts  the 
*  appropriate  definitions  into  the  output  file. 

*1 

getoperands(index) 
int  index; 

{ 

int  mask,  i,  xoperand,  yoperand,  symindex,  tblindex,  count; 
int  structtable;  /*  discerns  between  struct  and  const  hash  */ 
token  opml,  opm2; 

if  ((optable[index].operandpattem  =  XYI_OP)  II 
(optable  [index]  .operandpattem  =  XYN_XI)  II 
(optable[index].operandpattem  =  XYN_XI_REV))  { 
opml  =  gettokenO; 
if  (opml.string[0]  ==  ’X’)  { 

fprintf(outfile,".word0x%02xfd0, 
optable[index]  .opcode); 
xoperand  =  1; 

}  else  { 

fprintf(outfile,".word0x%02xfd0, 
optable[index]  .opcode+ 1); 
xoperand  =  0; 

} 

}  else  { 

fprintf(outfile,".word0x%02xfd0, 
optable[index]  .opcode); 

) 

switch  (optable(index]  .operandpattem)  { 
case  NONE:  /*  no  operands  */ 


break; 

case  LABEL_OP:  /*  one  label  operand  */ 

opml  =  gettokenO; 
fixlabel(opm  1  .string); 
fprintf(outfile,".byte0x8f0.1ong%s0, 
opml. string); 
break; 

case  XI_OP:  I*  one  Xi  operand  */ 

opml  =  gettokenO; 
if  ({opml.string[0]  !=  ’X’)  II 
(opml.string[l]  <  ’!’)  II 
(opml.string[l]  >  ’8’)  II 
(opml.string[2]  !=  ’  ’))  { 

fprintf(stderr,''plmas:  line  %d:  expected  XI  -  X80, 
inputlinenumber); 
errorcount++; 

}  else  { 

fprintf(outfile,''.byte0x5%d0, 
opml.string[l]  -  ’1’): 

} 

break; 

case  CONST_OP:  /*  one  constant  operand  */ 

opml  =  gettokenO; 

fprintf(outfile,"  .by  te0x8  f0.1ong0x%08x0, 
getconstantvalue(opm  1  .string)); 
break; 

case  N_OP;  I*  one  n  operand  *! 
opml  =  gettokenO; 

fprintf(outfile,".byte0x8ro.long0x%08x0, 
atoi(opml. string)); 
break; 

case  FAIL_OP;  I*  a  "fail”  operand  */ 

opml  =  gettokenO; 
if  (strcmp(opml.string,"fail")  !=0)  { 

fprintf(stderr,”plmas:  line  %d;  expected 
inputlinenumber); 
errorcount++; 


break; 

case  XYI_OP:  I*  Xi  or  Yi  */ 

/*  already  have  operand  */ 

if  ((opml.string[0]  !=  ’X’)  &&  (opml.string[0]  !=  ’Y’))  { 
fprintf(stderr, 

"plmas:  line  %d:  expected  X<n>  or  Y<n>0, 
inputlinenumber); 
errorcount++; 

}  else  { 

if  (xoperand)  ( 

fprintf(outfile,"  .by  te0x5  %d0, 
opml.string[l]  -  ’1’); 

}  else  { 

yoperand  =  atoi(opml. string  +  1)  - 1; 
get_Y  op(yoperand) ; 


} 
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} 

break; 

case  CONST_XI:  I*  a  constant  and  then  an  Xi  */ 

opml  =  gettokenO; 

fprintf(outfile,”.byte0x8f0.1ong0x%08x0, 
getconstantvalue(opm  1  .string)); 
opm2  =  gettokenO; 
if  ((opm2.string[0]  !=  ’X’)  II 
(opm2.string[l]  <  ’!’)  H 
(opm2.string[l]  >  ’8’)  II 
(opm2.string[2]  !=  ’  ’))  { 

fprintf(stderr,"plmas:  line  %d:  expected  XI  -  X80, 
inputlinenumber); 
errorcount++; 

)  else  { 

fprintf(outfile,"  .byte0x5%d0, 
opm2.string[l]  -  ’1’)', 

} 

break; 

case  FUNCT_XI:  [*  a  functor  and  then  an  Xi  */ 

opml  =  gettokenO; 
fixfunctor(opm  1  .string); 
fprintf(outfile,".byte0x8f0.1ong0x%08x0, 
getconstantvalue(opm  1  .string)); 
opm2  =  gettokenO; 
if  ((opm2.string[0]  !=  ’X’)  II 
(opm2.string[l]  <  ’1’)  II 
(opm2.string[l]  >  ’8’)  II 
(opm2.string[2]  !=  ’  ’))  ( 

fprintf(stderr,"plmas:  line  %d:  expected  XI  -  X80, 
inputlinenumber); 
errorcount++; 

)  else  { 

fprintf(outfile,".byte0x5%d0, 
opm2.string[l]  -  ’1’): 

) 

break; 

case  CMASK_LABEL;  f*  a  mask  and  then  a  label,  then  a  table  */ 
case  SMASK_LABEL: 

if  (optable[index].operandpattem  ==  SMASK_LABEL) 
structtable  =  1 ;  /*  functor  arities  must  be  removed  */ 
else 

structtable  =  0;  /*  constants,  don’t  check  for  arity  *! 
opml  =  gettokenO; 
mask  =  atoi(opml. string) »  1; 
fprintf(outfile,".word0x%02x8ro,mask); 

I*  skip  two  labels  to  get  to  beginning  of  table  */ 
opml  =  gettokenO; 
opml  =  gettokenO; 

/*  initialize  the  table  array  structure  */ 
for  (i  =  0;  i  <=  mask;  i-H-)  { 

table_array[i]. index  =  Oxffffffff; 

} 

/*  read  in  the  table  and  update  the  table  array  */ 
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/*  (note  table  is  of  the  form;  <symbol>  [tcdr]  <label>  ...)  */ 
for  (i  =  0;  i  <=  mask;  i-H-)  { 
opml  =  gettokenO; 
if  (strcmp(opml.string,"fail")  ==  0)  { 

[*  skip  the  tcdr  and  next  fail  *! 
opml  =  gettokenO; 
opml  =  gettokenO: 

}  else  { 

if  (stmcttable)  fixfunctor(opml.string); 
symindex  =  getconstantvalue(opml. string); 
tblindex  =  symindex  &  mask; 
while  (table_array[tblindex]. index  !=  Oxffffffff)  { 
tblindex  =  (tblindex  +  1)  %  (mask  +  1); 

} 

table_array  [tblindex], index  =  symindex; 
opml  =  gettokenO; 
if  (strcmp(opml.string,"tcdr")  ==  0)  { 
opml  =  gettokenO: 

) 

fixlabel(opm  1  .string); 
if  (strcmp(opml.string,"fair')  =  0)  { 
table_array [tblindex], string[0]  =  ’  ’; 

}  else  ( 

strcpy(table  array  [tblindex]  .string.opm  1  .string); 

) 

} 

) 

/*  print  out  table  */ 

for  (i  =  0;  i  <=  mask;  i-H-)  [ 

if  (table_array[i].index  ==  Oxffffffff)  ( 
fprintf(outfile,".long00); 
fprintf(outfile,".long00); 

]  else  [ 

fprintf(outfile,''.long0x%08x0, 
table_array  [i] .  index) ; 
fprintf(outfile,".long%sO, 
table_array  [i]  .string); 

} 

} 

break; 

case  XYN_XI:  I*  Xn  or  Yn,  then  Xi  */ 

/*  already  have  first  operand  */ 
opm2  =  gettokenO; 

if  ((opml.string[0]  !=  ’X’)  &&  (opml.string[0]  !=  ’Y’))  { 
fprintf(stderr, 

"plmas:  line  %d;  expected  X<n>  or  Y<n>0, 
inputlinenumber); 
errorcount+-H; 

)  else  ( 

if  ((opm2.string[0]  !=  ’X’)  II 
(opm2.string[l]  <  ’1’)  H 
(opm2.string[l]  >  ’8’)  II 
(opm2.string[2]  !=  ’  ’))  { 
fprintf(stderr, 
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90 


"plmas:  line  %d:  expected  XI  -  X80, 
inputlinenumber); 
errorcount++; 

}  else  { 

if  (xoperand)  { 

^rintf(outfile, 

"  .by  te0x5  %d0.by  teOx5%dO, 
opml. string!  1]  -  ’1’, 
opm2.string[l]  -  ’1’); 

)  else  { 

yoperand  =  atoi(opml.string+l)  -1; 
get_Yop(yoperand); 
fprintf(outfile,"  .by  te0x5%d0, 
opm2.string[l]  -  ’1’); 

1 

} 

) 

break; 

case  YN_XI:  /*  Yn  and  then  Xi  */ 

opml  =  gettokenO; 
opm2  =  gettokenO; 
if  (opml.string[0]  !=  ’Y’)  { 
fprintf(stderr, 

"plmas:  line  %d:  expected  Y<n>0, 
inputlinenumber); 
errorcount++; 

}  else  { 

if  ((opm2.suing[0]  !=  ’X’)  II 
(opm2.string[l]  <  ’1’)  II 
(opm2.string[l]  >  ’8’)  II 
(opm2.string[2]  !=  ’  ’))  { 
fjprintf(stderr, 

"plmas:  line  expected  XI  -  X80, 
inputlinenumber); 
errorcount++; 

)  else  ( 

yoperand  =  atoi(opml.string+l)  -1; 
get_Y  op(yoperand); 
fprintf(outfile, 

".byteOx5%dO,opm2.string[l]  -  ’1’); 

} 

} 

break; 

case  XYN_XI_REV:  /*  Xn  or  Yn,  then  Xi,  reverse  for  output  */ 
r*  already  have  first  operand  */ 
opm2  =  gettokenO; 

if  ((opml.string[0]  !=  ’X’)  &&  (opml.string[0]  !=  ’Y’))  { 
fprintf(stderr, 

"plmas:  line  %d:  expected  X<n>  or  Y<n>0, 
inputlinenumber); 
errorcount++; 

}  else  { 

if  ((opm2.string[0]  !=  ’X’)  II 
(opm2.string[l]  <  ’1’)  II 
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(opm2.string[l]  >  ’8’)  II 
(opm2.string[2]  !=  ’  ’))  { 
fprintf(stderr, 

"plmas;  line  %d:  expected  XI  -  X80, 
inputlinenumber); 
errorcount++; 

)  else  { 

if  (xoperand)  { 

fprintf(outfile, 

"  .by  te0x5  %d0.by  te0x5  %d0, 
opm2.string[l]  -  ’1’, 
opml.string[l] 

}  else  { 

fprintf(outfile,''.byte0x5%d0, 
opm2.string[l]  -  ’1’); 
yoperand  =  atoi(opml.string+l)  -1; 
get_Yop(yoperand); 

} 

} 

) 

break; 

case  LABEL_N_REV:  /*  a  label  and  then  n,  reverse  for  output  */ 
opml  =  gettokenO: 
fixlabel(opm  1  .string); 
opm2  =  gettokenO: 
if  (atoi(opm2.string)  <  64) 

^rintf(outfile,".byte0x%02x0,atoi(opm2.string)); 

else 

fprintf(outfile,".byte0x8f0.byte0x%02x0, 
atoi(opm2.string)); 
fprintf(outfile,".byteOx8ro.long%sO, 
opml. string); 
break; 

case  LABEL_LABEL_LABEL:  /*  three  label  operands  */ 

opml  =  gettokenO: 
if  (strcmp(opml. string, "fail")  =  0)  { 
fprintf(outfile, 

".byte0x81D.long0xffffffff0); 

}  else  { 

fixlabel(opm  1  .string): 
Iprintf(outfile,".byte0x8f0.1ong%s0, 
opml. string); 

) 

opml  =  gettokenO; 
if  (strcmp(opml.string,"fail")  =  0)  { 
fprintf^(outfile, 

".byte0x8f0.1ong0xffffffffD); 

}  else  { 

fixlabel(opm  1  .string); 
fprintf(outfile,".byte0x8ro.long%s0, 
opml. string); 

} 

opml  =  gettokenO; 
if  (strcmp(opml.suing,"fail")  =  0)  [ 
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fprintf(outfile, 

".byteOxSfD.longOxffffffffO); 

}  else  { 

fixlabel(opm  1  .string); 
^rintf(outfile,".byte0x8f0.1ong%s0, 
opml. string); 

} 

break; 

case  TWO_XI:  f*  Two  Xi.Yi,  or  N  operands  followed  by  an  Xi  */ 
for  (count  =  1;  count  <=  3;  count++)  { 
opml  =  gettokenO; 
switch  (opml.string[0])  { 
case’X’; 

]^rintf(outfile,  ".byte0x5%d0, 
opml.string[l]  -  ’1’); 
break; 
case  ’Y’; 

fprintf(outfile,".byteOxceO); 
fprintf(outfile,".word0x%04x0, 
-((atoi(opml. string  +  1)  - 1)  *  4) 

&  Oxffff); 
break; 

case 

fprintf(outfile,".byteOx8fO); 
fprintf(outfile,'Mong0x%08x0, 
atoi(opml.string  +  1)  I  OxcOCKXXXX)); 
break; 

) 

} 

break; 

) 

) 

/*  This  procedure  is  used  to  process  a  Yn  operand.  There  are  three  cases: 

*  1)  operand  is  Yl,  represented  as  (rl4) 

*  2)  operand  is  <=  Y64,  represented  as  B'D(rl4) 

*  3)  operand  is  >  Y64,  represented  as  W'D(rl4) 

V 

get_Yop{y  value) 
int  yvalue; 

{ 

/*  This  doesn’t  work  if  mode  =  AS RC 
if  (yvalue  ==  0) 

fprintf(outfile,".byte0x6e0); 
else  */ 

if  (yvalue  <=  31)  { 

^rintf(outfile, "  .by  teOxaeO); 
fprintf(outfile,".byte0x%02x0,  -(yvalue  *  4)  &  OxfO; 

) 

else  ( 

fprintf(outfile,".byteOxceO); 

fprintf(outfile,".word0x%04x0,  -(yvalue  *  4)  &  Oxffff); 

} 


*  'If 


/*  This  procedure  is  called  when  a  label  is  detected  in  the  input  file. 

*  Since  the  output  is  processed  by  the  VAX  assembler,  labels  can  just 

*  be  passed  through  to  the  output  file. 

*/ 

putlabel(nexttoken) 
token  nexttoken; 

( 

fprintf(outfile,"%sO,nexttoken.string); 

retum(0); 


This  procedure  is  called  when  the  keyword  "procedure"  is  found  in 
the  input  stream.  The  next  token  is  assumed  to  be  a  label  that 

*  is  then  put  into  the  output  file. 

♦ 

*  If  there  are  more  WAM  files  left  to  parse  (signified  by  ’morefiles’) 

*  and  the  procedure  name  is  "allocate_dummy",  then  all  processing  of  the 

*  current  WAM  file  is  stopped  by  returning  1.  Each  WAM  file  has  an 

*  identical  allocate_dummy  procedure  which  should  only  be  output  once. 

*  We  do  so  while  processing  the  last  WAM  file. 

*/ 

getprocedureO 

{ 

token  procname; 
procname  =  gettokenO: 

if  (morefiles  &&  (strcmp(procname.string,"allocate_dummyA)”)  =  0)) 
retum(l); 

fixlabel(procname.string); 

fprintf(outfile,"%s:0,procname.string); 

retum(O); 

} 


/*  This  procedure  is  called  when  the  keyword  "escape"  is  found  in 

*  the  input  file.  The  next  token  is  assumed  to  be  the  name  of 

*  a  C  level  procedure  to  be  called.  The  last  character  of  the 

*  token  must  be  a  number  indicating  the  number  of  parameters  to 

*  be  passed  to  the  C  procedure. 

V 

getescapeO 

{ 

int  i,  argc,  logical; 
token  escapename; 

escapename  =  gettokenO; 

/*  the  logical  escapes  are  now  implemented  as  new  instructions 
*  in  VAX  8600  microcode 
*/ 


if  (strcmp(escapename.string,"==/2")  ==  0)  { 

fprintf(outfile,".word0x%02xfd0,ESCAPE_EQ); 

)  else  if  (strcmp(escapename.string,"Ni==/2")  ==  0)  { 

fprintf(outfile,".word0x%02xfd0,ESCAPE_NEQ); 

)  else  if  (strcmp(escapename.string,''=../2")  ==  0)  { 

fprintf(outfile,".word0x%02xfd0vESCAPE_lJNIV); 

)  else  if  (strcmp(escapename.string,''>/2")  ==  0)  { 

fprintf(outfile,”.word0x%02xfd03SCAPE_GT); 

}  else  if  (strcmp(escapename.string,"</2”)  ==  0)  { 

^rintf(outfile,''.word0x%02xfd0,ESCAPE_LT); 

}  else  if  (strcmp(escapename.string,">=/2")  =  0)  { 

fprintf(outfile,".word0x%02xfd0JESCAPE_GE); 

}  else  if  (strcnip(escapename.string,”=</2")  =  0)  { 
fprintf(outfile,".word0x%02xfd03SCAPE_LE); 

}  else  if  (strcmp(escapename.string,''integer/r')  ==  0)  { 

fprintf(outfile,".word0x%02xfd0,ESCAPE_INTEGER); 
)  else  if  (strcmp(escapename.string,"number/r)  ==  0)  { 

fprintf(outfile,".word0x%02xfd0^SCAPE_INTEGER); 
)  else  if  (strcmp(escapename.string,"atom/r')  ==  0)  { 

fprintf(outfile,''.word0x%02xfd0,ESCAPE_ATOM): 

}  else  if  (strcmp(escapename.string, "length/2”)  ==  0)  { 

fprintf(outfile,".word0x%02xfd0,ESCAPE_LENGTH); 
)  else  if  (strcmp(escapename.string,"plus/3")  ==  0)  ( 
fprintf(outfile,".word0x%02xfd0J*LUS); 

}  else  if  (strcmp(escapename.string, "minus/3")  =  0)  { 
fprintf(outfile,".word0x%02xfd0, MINUS): 

)  else  if  (strcmp(escapename.string, "mult/3")  =  0)  { 
fprintf(outfile,".word0x%02xfd0,IS_IN); 
fprintf(outfile,"nopO);  /*  timing  problem  */ 

fprintf(outfile,"mull2r34’10):  /*  mull2  r3/l  */ 
fprintf(outfile,".word0x%02xfd0,lS_OUT); 

)  else  if  (strcmp(escapename.string,"div/3")  ==  0)  { 
fprintf(outfile,".word0x%02xfd0,IS_IN); 
fprintf(outfile,"nopO);  /*  timing  problem  */ 

fprintf(outfile,"divI2r3/10);  I*  divl2  M  *1 
fprintf(outfile,".word0x%02xfd0,IS_OUT); 

)  else  if  (strcmp(escapename.string, "mod/3")  =  0)  { 
fprintf(outfile,".word0x%02xfd0,IS_IN); 
fprintf(outfile,"nopO);  /*  timing  problem  */ 

fprintf(outfile,"divl3r34-l.r20);/*  divl3  r3,rl^  */ 
fprintf(outfile,"mull2r3  j20);  /*  mull2  r3^  */ 
fprintf{outfile,"subl2r2jl0);  /*  subl2  r24-l  */ 
fprintf(outfile,".word0x%02xfd0,IS_OUT); 

}  else  { 

the  non-logical  escapes  are  done  in  C  */ 

fixlabel(escapename.string); 

/*  get  argument  count  */ 
i  =  0; 

while  (escapename.string[i]  !=  ’  ’)  i++; 
argc  =  escapename.string[i  - 1]  -  ’O’; 
if  ((argc  >  8)  II  (argc  <  0))  { 


/*  first  do  the  microcode  escape  instruction  saving  PSL  */ 
fprintf(outfile,".word0x%02xfd0,ESC_IN); 

/*  trail  XI  if  the  escape  is  get_l  or  is_2*/ 
if  ( (strcmp(escapename.string,"get_r’)  ==  0)  II 
(strcmp(escapename.string,"is_2")  =  0) ) 

fprintf(outfile,".word0x%02xfd0,TRAIL_Xl); 

/*  generate  call  to  escape  routine  */ 

fprintf(outfile,"cmplsp,fp0.word0x08190): 

fprintf(outfile,"movlsp,(fp)0); 

fprintf(outfile,"movlfp,sp0.word0x0cll0); 

fprintf(outfile,"movlsp,w"-1024(sp)0); 

fprintf(outfile,"  subl2S  1 024 ,sp0pushr$0x3  fO); 

for  (i  =  0;  i  <  argc;  i++)  { 

fprintf(outfile,"pushlr%dO,i); 

} 

/*  push  heap  and  trail  if  escape  is  name_2  *! 
if  (strcmp(escapename.string,"name_2")  ==  0)  { 
fprintf(outfile,"pushlapO); 
fprintf(outfile,"pushlr90); 
argc  =  4; 

} 

fprintf(outfile,"calls$%d^plm_%s0^gc,escapename.string): 

fprintf(outfile,"tstlr00): 

fprintf(outfile," .  word0x09 1 20); 

fprintf(outfile,"popr$0x3f0movl(sp),sp0); 

fprintf(outfile,".word0x%02xfd0,ESC_OUT); 

fprintf(outfile,".word0x06fd0); 

fprintf(outfile,"popr$0x3f0movl(sp),sp0); 

/*  if  escape  is  name_2  */ 

/*  increment  heap  and  trail  by  the  values  stored  */ 

/*  in  reserved  locations  of  memory  •/ 
if  (strcmp(escapename.string,"name_2")  ==  0)  { 
fprintf(outfile,"addl20x7ffro0 14,ap0); 
fprintf(outfile,"addl20x7ffro010/90); 

} 

fprintf(outfile,".word0x%02xfd0,ESC_OUT); 

} 

retum(O); 


/*  This  procedure  is  called  to  remove  the  arity  associated  with  a 

*  functor.  Only  the  functor  itself  and  not  it’s  arity  should  be  used 

*  to  determine  it’s  encoding. 

*1 

fixfunctor(string) 


char  *string; 

{ 

while  ((string[0]  !=  7’)  II  (string[l]  =  V’)) 
string-H-: 

♦string  =  ’ 

] 

/*  This  procedure  is  called  to  replace  all  occurrences  of  7’  in  a 

*  file  to  This  is  done  so  that  labels  will  be  valid  for  the 

*  assembler. 

* 

*  In  addition,  this  procedure  fixes  up  the  logical  escape  calls 

*  replacing  ’=’  with  ’e’,  ’<’  with  ’1’,  and  ’>’  with  ’g’. 

*1 

fixlabel(string) 
char  *string; 

( 

while  (*string  !=  ’  ’)  { 
switch  (*string)  { 


case  7’: 

♦string  = 

break; 

case 

♦string  = 

’1’;  break; 

case 

♦string  = 

’g’;  break; 

case 

♦string  = 

’e’;  break; 

default : 

break; 

) 

string++: 

} 

] 

/♦  This  procedure  searches  the  optable  structure  for  a  match  of  the 

*  token  with  one  of  the  instruction  keywords.  If  a  match  is  found, 

*  the  appropriate  index  into  the  optable  structure  is  returned,  otherwise 

*  -1  is  returned 
*1 

getopcode(string) 
char  *string; 

{ 

int  i; 

for  (i  =  0;  optable[i].instruction[0]  !=  ’  i-H-)  { 

if  (strcmp(optable[i].instruction,string)  =  0)  { 
letum(i); 

} 

) 

retum(-l); 

} 


/*  This  procedure  gets  a  token  from  the  input  file.  A  token  is  a  sequence 

*  of  printable  characters  separated  by  non-printable  characters  or  by 

*  a  comma.  If  the  end  of  file  is  detected,  END  is  returned  and  if  the 

*  token  ends  in  LABEL  is  returned,  if  the  token  is  "escape". 
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*  "procedure"  or  "end"  then  ESCAPE,  PROCEDURE  or  END  are  returned 

*  respecuvely.  Otherwise,  the  value  INSTRUCTION  is  assigned  to  the  type 

*  field. 

*1 

token  gettokenO 

{ 

int  i,  c; 

static  token  result; 
i  =  0; 

c  =  GetcO; 

while  ((c  !=  EOF)  &&  ((c  <=  ’  ’)  II  (c  >  ’-)))  { 
c  =  GetcO: 

) 

/*  now  check  for  special  case  constant  delimited  by  single  quotes  */ 

/*  some  of  these  may  even  have  an  arity  following  */ 

if(c==’'’){ 

c  =  GetcO;  /*  skip  the  single  quote  */ 
while  ((c  !=  EOF)  &&  ((c  >=  ’  ’)&&(c  <=  ’*’))  &&  (c  !=  ’'’))  { 
result.string[i-H-]  =  c; 
c  =  GetcO; 

} 

c  =  GetcO;  /*  skip  comma  or  check  for  a  functor  */ 

if(c==r){ 

resulLstring[i++]  =  c;  /*  yes,  take  7’  */ 

resulLstring[i++]  =  GetcO:  /*  and  arity  */ 

c  =  GetcO;  /*  now  skip  comma  */ 

} 

}  else  { 

while  ((c  !=  EOF)  &&  ((c  >  ”)  &&  (c  <=  ’"’))  &&  (c  !=  ’.’))  ( 
resulLstring[i-H-]  =  c; 

c  =  GetcO: 

) 

} 

result.string[i]  =  ’  ’; 


if(c==EOF)  { 

result.type  =  END; 

)  else  if  (resulLstring[i-l]  =  ’:’)  { 
result.type  =  LABEL; 

}  else  if  (strcmp(result.string,"procedure")  =  0)  { 
result.type  =  PROCEDURE; 

)  else  if  (strcmp(result.string,"escape")  =  0)  { 
result.type  =  ESCAPE; 

)  else  if  (strcmp(result.string,"end")  ==  0)  { 
resulLtype  =  END; 

)  else  { 

result.type  =  INSTRUCTION; 

} 

retum(result); 


GetcO 


{ 


static  char  c; 
char  d; 


d  =  c; 

c  =  getc(mfile): 
if(d  ==’0){ 

inputlinenumber++; 

} 

retum(c); 


/*  TTiis  procedure  prints  out  header  information  into  the  output  file. 

*  A  comment  line  is  printed  followed  by  assembler  directives  to  create 

*  the  global  _main  and  to  call  _initmsg  and  _doplm. 

*! 

printheaderO 

{ 

fprintf(outfile,"  .lextO.globl  _mainO); 

fprintf(outfile,"_main:0.word00); 

fprintf(outfile,"movlfp,0x7fff00080); 

fprintf(outfile,"callsSO^initO); 

fprintf(outfile,"movlr0^end+80); 

fprintf(outfile,"movl$%d,_end+40,repeatcount): 

fprintf(outfile,"_plnt-repeat;0movl_end+8,ap0); 

fprintf(outfile,"movl$Ox7fffO(X)8,spO): 

fprintf(outfile,"  jsb_doplmO) ; 

fprintf(outfile,''subl2$  1  ,_end440); 

fprintf(outfile."bneq_plm.repeatO); 

fprintf(outfile,"movlr0400beql_mainlO); 

fprintf(outfile,"calls$0^writeyes0brb_main20); 

fprintf(outfile,"_main  1  :calls$0,_writeno0); 

fprintf(outfile,”_main2:movl0x7  fff0008 ,f^etO); 

fprintf(outfile,"0doplm:0.word0x%02xfd0dlESET); 

} 


/*  This  procedure  prints  out  the  symbol  table  to  the  output  file. 
*1 

outputsymboltableO 

{ 

int  i; 

struct  symbol  *next; 

fprintf(outfile,".globl_atomlistOatomlist:0); 
i  =  0; 

next  =  symboltable; 

while  (next->string[0]  !=  ’  ’)  { 

fprintf(outfile,".long _ sym%dO,i-H-): 

next  =  next->next; 
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fprintf(outfile,"  .long _ endsymO); 

i  =  0; 

next  =  symboltable; 

while  (next->string[0]  !=  ’  ’)  { 

fprintf(outfile," _ syni%d:0.asciz 

next->string); 
next  =  next->next; 

} 

fprintf(outfile,'' _ ^endsymrO.byteOO); 

/*  reserve  two  longwords  for  the  malloc  heap  pointer  and  loop  count  */ 

/*  statements  needed  for  VMS  Macro 

fprintf(outfile,”_end:0.1ong00.1ong00); 
fprintf(outfile,’’.end  mainO); 

*1 

} 


/*  This  procedure  puts  a  string  into  the  symbol  table  if  it  isn’t  already 

*  there  and  returns  a  new  index.  If  the  string  is  already  there,  it 

*  returns  the  old  index. 

*/ 

unsigned  int  getconstantvalue(string) 
char  ^string; 

( 

int  i; 

struct  symbol  *next; 

if  (strcmp(string,"[]")  =  0)  { 
retum(Oxefffffff); 

)  else  if  (string[0]  ==  ’&’)  { 

retum(0xc00000(X)  +  atoi(string  +  1)); 

} 

i  =  0; 

next  =  symboltable; 

while  (next->string[0]  !=  ’  ’)  { 

if  (strcmp(next->string,string)  =  0)  { 
retum(0xc8000000  +  i); 


i-H-; 

next  =  next->next; 

) 

next->next  =  (struct  symbol  *)  malloc(sizeof(struct  symbol)); 

strcpy(next->string, string); 

next->next->string[0]  =  ’  ’; 

next->next->next  =  0; 

retum(0xc8000(X)0  +  i); 


